Small fixes from Mats

rswgnu · May 11, 2019 · 9755e7e · 9755e7e
2 parents 042842d + 159082b
commit 9755e7e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/hui-mouse.el b/hui-mouse.el
@@ -603,7 +603,7 @@ If key is pressed:
 	((< (current-column) 5) (calendar-cursor-to-nearest-date)
 	 (scroll-calendar-right-three-months 1))
 	(t (calendar-cursor-to-nearest-date)
-	   (view-diary-entries 1))))
+	   (diary-view-entries 1))))
 
 (defun smart-calendar-assist ()
   "Uses a single assist-key or mouse assist-key to manipulate the scrolling calendar.

diff --git a/hypb.el b/hypb.el
@@ -782,6 +782,7 @@ Without file, the banner is prepended to the current buffer."
 	(setq button (make-button (- (point) 3) (- (point) 2) :type 'hyperbole-banner))
 	(button-put button 'help-echo (concat "Click to visit " hypb:home-page))
 	(button-put button 'action #'hypb:browse-home-page)
+	(button-put button 'face 'default)
 	(button-put button 'keymap hypb:hyperbole-banner-keymap)))))
 
 (defun hypb:display-file-with-logo-xemacs (&optional file)