From c8dc27bff3626bf0826b310f69f7d7f9c54eba74 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 5 Sep 2009 21:11:34 +0000 Subject: [PATCH] (diary-entry): Add help-echo and follow-link properties to this button. (diary-fancy-display): Don't extend the button to the final newline. (diary-fancy-display-mode): Continue to define "q" as a local key. --- lisp/ChangeLog | 5 +++++ lisp/calendar/diary-lib.el | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a7e43340749..4163e23aab8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2009-09-05 Glenn Morris + * calendar/diary-lib.el (diary-entry): Add help-echo and follow-link + properties to this button. + (diary-fancy-display): Don't extend the button to the final newline. + (diary-fancy-display-mode): Continue to define "q" as a local key. + * calendar/cal-china.el (holiday-chinese): Make it slightly more efficient. diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 1975be6c2ea..3beb3548a35 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -908,9 +908,9 @@ in the mode line. This is an option for `diary-display-function'." (define-obsolete-function-alias 'simple-diary-display 'diary-simple-display "23.1") -(define-button-type 'diary-entry - 'action #'diary-goto-entry - 'face 'diary-button) +(define-button-type 'diary-entry 'action #'diary-goto-entry + 'face 'diary-button 'help-echo "Find this diary entry" + 'follow-link t) (defun diary-goto-entry (button) "Jump to the diary entry for the BUTTON at point." @@ -1000,7 +1000,7 @@ This is an option for `diary-display-function'." this-loc marks temp-face) (unless (zerop (length this-entry)) (if (setq this-loc (nth 3 entry)) - (insert-button (concat this-entry "\n") + (insert-button this-entry ;; (MARKER FILENAME SPECIFIER LITERAL) 'locator (list (car this-loc) (cadr this-loc) @@ -1008,7 +1008,8 @@ This is an option for `diary-display-function'." (or (nth 2 this-loc) (nth 1 entry))) :type 'diary-entry) - (insert this-entry ?\n)) + (insert this-entry)) + (insert ?\n) ;; Doesn't make sense to check font-lock-mode - see ;; comments above diary-entry-marker in calendar.el. (and ; font-lock-mode @@ -2362,6 +2363,7 @@ Fontify the region between BEG and END, quietly unless VERBOSE is non-nil." t nil nil nil (font-lock-fontify-region-function . diary-fancy-font-lock-fontify-region-function))) + (local-set-key "q" 'quit-window) (set (make-local-variable 'minor-mode-overriding-map-alist) (list (cons t diary-fancy-overriding-map))) (view-mode 1)) -- 2.39.2