* lisp/emacs-lisp/warnings.el (lwarn): Empower help-enable-auto-load.

Fixes: debbugs:15940

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22e541fce3f248194fc7f79ff3031c75c1e808a4..493a3d13ad863eae745d6fe4dfd5e8d357b42697 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-09  Glenn Morris  <rgm@gnu.org>
+
+       * emacs-lisp/warnings.el (lwarn):
+       Empower help-enable-auto-load.  (Bug#15940)
+
 2014-02-08  Andreas Schwab  <schwab@linux-m68k.org>
 
        * vc/log-edit.el (log-edit-comment-to-change-log): Doc fix.

diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el
index 80c990a16ccfa00be4ae7984f4b78f92768a72e9..49b11e9d5d6db9699724658ac0c07761a25aff70 100644 (file)
--- a/lisp/emacs-lisp/warnings.el
+++ b/lisp/emacs-lisp/warnings.el
@@ -306,9 +306,12 @@ See also `warning-series', `warning-prefix-function' and
                       (set-window-start window warning-series))
                     (sit-for 0))))))))
 \f
+;; Use \\<special-mode-map> so that help-enable-auto-load can do its thing.
+;; Any keymap that is defined will do.
 ;;;###autoload
 (defun lwarn (type level message &rest args)
   "Display a warning message made from (format MESSAGE ARGS...).
+\\<special-mode-map>
 Aside from generating the message with `format',
 this is equivalent to `display-warning'.