From: Glenn Morris <rgm@gnu.org>
Date: Sat, 5 Sep 2009 21:11:34 +0000 (+0000)
Subject: (diary-entry): Add help-echo and follow-link properties to this button.
X-Git-Tag: emacs-pretest-23.1.90~1464
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8dc27bff3626bf0826b310f69f7d7f9c54eba74;p=emacs.git

(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.
---

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  <rgm@gnu.org>
 
+	* 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))