branch: externals/hyperbole
commit 9755e7e2727e255ce1e385d7b11e6051f8423885
Merge: 042842d 159082b
Author: Bob Weiner <r...@gnu.org>
Commit: Bob Weiner <r...@gnu.org>
Small fixes from Mats
---
hui-mouse.el | 2 +-
hypb.el | 1 +
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/hui-mouse.el b/hui-mouse.el
index 146860d..0878500 100644
--- 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
index c0d0595..6abc17a 100644
--- 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)
