From 343b2ca151ad1c00ca311122964c7507f1ab970a Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Thu, 7 Mar 2019 23:14:14 +0100 Subject: [PATCH 1/2] Set face to default removes empty line in banner image --- hypb.el | 1 + 1 file changed, 1 insertion(+) diff --git a/hypb.el b/hypb.el index a385e004..a072da7c 100644 --- a/hypb.el +++ b/hypb.el @@ -775,6 +775,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) From 159082b74108dbd60decd5e8f0d8f0c3cc377583 Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Wed, 24 Apr 2019 23:27:46 +0200 Subject: [PATCH 2/2] Use diary-view-entries Old function view-diary-entries was marked as obsolete in 2005 --- hui-mouse.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hui-mouse.el b/hui-mouse.el index 8f4f94b5..c97e317e 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.