[Emacs-diffs] /srv/bzr/emacs/trunk r110401: * lisp/ehelp.el (electric-help-map): Use button-buffer-map.

[Glenn Morris]

------------------------------------------------------------
revno: 110401
fixes bug: http://debbugs.gnu.org/10917
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2012-10-06 16:22:52 -0700
message:
  * lisp/ehelp.el (electric-help-map): Use button-buffer-map.
modified:
  lisp/ChangeLog
  lisp/ehelp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-06 23:16:40 +0000
+++ b/lisp/ChangeLog    2012-10-06 23:22:52 +0000
@@ -1,7 +1,8 @@
 2012-10-06  Glenn Morris  <address@hidden>
 
        * ehelp.el (electric-help-mode): Use help-mode rather than
-       non-existent mode `help'.  (Bug#10917)
+       non-existent mode `help'.
+       (electric-help-map): Use button-buffer-map.  (Bug#10917)
 
        * textmodes/reftex-vars.el (reftex-create-bibtex-header)
        (reftex-create-bibtex-footer): Fix custom types.

=== modified file 'lisp/ehelp.el'
--- a/lisp/ehelp.el     2012-10-06 23:16:40 +0000
+++ b/lisp/ehelp.el     2012-10-06 23:22:52 +0000
@@ -61,6 +61,8 @@
 
 (defvar electric-help-map
   (let ((map (make-keymap)))
+    ;; FIXME fragile.  Should derive from help-mode-map in a smarter way.
+    (set-keymap-parent map button-buffer-map)
     ;; allow all non-self-inserting keys - search, scroll, etc, but
     ;; let M-x and C-x exit ehelp mode and retain buffer:
     (suppress-keymap map)