emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-24 r117262: * simple.el (read-quoted-char): Don't le


From: Leo Liu
Subject: [Emacs-diffs] emacs-24 r117262: * simple.el (read-quoted-char): Don't let help chars pop up help
Date: Fri, 20 Jun 2014 00:15:43 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 117262
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16617
committer: Leo Liu <address@hidden>
branch nick: emacs-24
timestamp: Fri 2014-06-20 08:14:43 +0800
message:
  * simple.el (read-quoted-char): Don't let help chars pop up help
  buffer.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-19 22:52:12 +0000
+++ b/lisp/ChangeLog    2014-06-20 00:14:43 +0000
@@ -1,3 +1,8 @@
+2014-06-20  Leo Liu  <address@hidden>
+
+       * simple.el (read-quoted-char): Don't let help chars pop up help
+       buffer.  (Bug#16617)
+
 2014-06-19  Stefan Monnier  <address@hidden>
 
        * progmodes/sh-script.el (sh-smie-sh-rules): Use same rule for && as

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-06-01 15:19:14 +0000
+++ b/lisp/simple.el    2014-06-20 00:14:43 +0000
@@ -658,11 +658,16 @@
 The optional argument PROMPT specifies a string to use to prompt the user.
 The variable `read-quoted-char-radix' controls which radix to use
 for numeric input."
-  (let ((message-log-max nil) done (first t) (code 0) translated)
+  (let ((message-log-max nil)
+       (help-events (delq nil (mapcar (lambda (c) (unless (characterp c) c))
+                                      help-event-list)))
+       done (first t) (code 0) translated)
     (while (not done)
       (let ((inhibit-quit first)
-           ;; Don't let C-h get the help message--only help function keys.
+           ;; Don't let C-h or other help chars get the help
+           ;; message--only help function keys.  See bug#16617.
            (help-char nil)
+           (help-event-list help-events)
            (help-form
             "Type the special character you want to use,
 or the octal character code.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]