[elpa] externals/debbugs ab61b0e 010/311: * debbugs-gnu.el (debbugs-emacs): Propertize with 'help-echo.

[Stefan Monnier]

branch: externals/debbugs
commit ab61b0ef849e71e1bf85f88933b6b3bbb8a88379
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * debbugs-gnu.el (debbugs-emacs): Propertize with 'help-echo.
    (debbugs-mode-map): Define key "q".
---
 ChangeLog      |  5 +++++
 debbugs-gnu.el | 17 ++++++++++-------
 2 files changed, 15 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1da357e..adab150 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2011-07-02  Michael Albinus  <michael.albinus@gmx.de>
 
+       * debbugs-gnu.el (debbugs-emacs): Propertize with 'help-echo.
+       (debbugs-mode-map): Define key "q".
+
+2011-07-02  Michael Albinus  <michael.albinus@gmx.de>
+
        * debbugs.el (debbugs-new, debbugs-handled, debbugs-stale)
        (debbugs-done, debbugs-emacs, debbugs-mode-map, debbugs-mode)
        (debbugs-select-report, debbugs-summary-mode-map)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 7fa0594..dcad5ce 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -89,7 +89,9 @@
                (not (equal (cdr (assq 'pending status)) "done")))
        (let ((address (mail-header-parse-address
                        (decode-coding-string (cdr (assq 'originator status))
-                                             'utf-8))))
+                                             'utf-8)))
+             (subject (decode-coding-string (cdr (assq 'subject status))
+                                            'utf-8)))
          (setq address
                ;; Prefer the name over the address.
                (or (cdr address)
@@ -104,15 +106,15 @@
                                 (cdr (assq 'keywords status)))
                           ",")))
                     (unless (equal (cdr (assq 'pending status)) "pending")
-                      (setq words (concat words "," (cdr (assq 'pending 
status)))))
+                      (setq words
+                            (concat words "," (cdr (assq 'pending status)))))
                     (if (> (length words) 20)
-                        (substring words 0 20)
+                        (propertize (substring words 0 20) 'help-echo words)
                       words))
                   (if (> (length address) 23)
-                      (substring address 0 23)
+                      (propertize (substring address 0 23) 'help-echo address)
                     address)
-                  (decode-coding-string (cdr (assq 'subject status))
-                                        'utf-8)))
+                  (propertize subject 'help-echo subject)))
          (forward-line -1)
          (put-text-property
           (+ (point) 5) (+ (point) 26)
@@ -135,7 +137,8 @@
 (defvar debbugs-mode-map nil)
 (unless debbugs-mode-map
   (setq debbugs-mode-map (make-sparse-keymap))
-  (define-key debbugs-mode-map "\r" 'debbugs-select-report))
+  (define-key debbugs-mode-map "\r" 'debbugs-select-report)
+  (define-key debbugs-mode-map "q"  'kill-buffer))
 
 (defun debbugs-mode ()
   "Major mode for listing bug reports.