[Emacs-diffs] emacs-24 r116926: * lisp/help.el (describe-bindings): Fix buffer handling.

[Stefan Monnier]

------------------------------------------------------------
revno: 116926
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17210
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Tue 2014-04-08 15:48:38 -0400
message:
  * lisp/help.el (describe-bindings): Fix buffer handling.
  (describe-bindings-internal): Mark obsolete.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/help.el                   help.el-20091113204419-o5vbwnq5f7feedwu-280

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-04-07 07:29:50 +0000
+++ b/lisp/ChangeLog    2014-04-08 19:48:38 +0000
@@ -1,3 +1,8 @@
+2014-04-08  Stefan Monnier  <address@hidden>
+
+       * help.el (describe-bindings): Fix buffer handling (bug#17210).
+       (describe-bindings-internal): Mark obsolete.
+
 2014-04-07  João Távora  <address@hidden>
 
        * elec-pair.el:
@@ -12,10 +17,9 @@
 
 2014-04-07  João Távora  <address@hidden>
 
-       * elec-pair.el (electric-pair-inhibit-if-helps-balance): Inhibit
-       quote pairing if point-max is inside an unterminated string.
-       (electric-pair--looking-at-unterminated-string-p):
-       Delete.
+       * elec-pair.el (electric-pair-inhibit-if-helps-balance):
+       Inhibit quote pairing if point-max is inside an unterminated string.
+       (electric-pair--looking-at-unterminated-string-p): Delete.
        (electric-pair--in-unterminated-string-p): New function.
 
 2014-04-07  Glenn Morris  <address@hidden>
@@ -35,13 +39,13 @@
 
 2014-04-06  João Távora  <address@hidden>
 
-       * progmodes/python.el (python-electric-pair-string-delimiter): Fix
-       triple-quoting electricity.  (Bug#17192)
+       * progmodes/python.el (python-electric-pair-string-delimiter):
+       Fix triple-quoting electricity.  (Bug#17192)
 
 2014-04-06  João Távora  <address@hidden>
 
-       * elec-pair.el (electric-pair-post-self-insert-function): Don't
-       skip whitespace when `electric-pair-text-pairs' and
+       * elec-pair.el (electric-pair-post-self-insert-function):
+       Don't skip whitespace when `electric-pair-text-pairs' and
        `electric-pair-pairs' were used. syntax to
        electric-pair--skip-whitespace.  (Bug#17183)
 

=== modified file 'lisp/help.el'
--- a/lisp/help.el      2014-04-05 18:33:55 +0000
+++ b/lisp/help.el      2014-04-08 19:48:38 +0000
@@ -485,8 +485,11 @@
   (or buffer (setq buffer (current-buffer)))
   (help-setup-xref (list #'describe-bindings prefix buffer)
                   (called-interactively-p 'interactive))
-  (with-current-buffer buffer
-    (describe-bindings-internal nil prefix)))
+  (with-help-window (help-buffer)
+    ;; Be aware that `describe-buffer-bindings' puts its output into
+    ;; the current buffer.
+    (with-current-buffer (help-buffer)
+      (describe-buffer-bindings buffer prefix))))
 
 ;; This function used to be in keymap.c.
 (defun describe-bindings-internal (&optional menus prefix)
@@ -497,6 +500,7 @@
 \(Ordinarily these are omitted from the output.)
 The optional argument PREFIX, if non-nil, should be a key sequence;
 then we display only bindings that start with that prefix."
+  (declare (obsolete describe-buffer-bindings "24.4"))
   (let ((buf (current-buffer)))
     (with-help-window (help-buffer)
       ;; Be aware that `describe-buffer-bindings' puts its output into