emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100518: Backport revno:103622 fro


From: Juanma Barranquero
Subject: [Emacs-diffs] /srv/bzr/emacs/emacs-23 r100518: Backport revno:103622 from trunk.
Date: Fri, 11 Mar 2011 15:05:31 +0100
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 100518
committer: Juanma Barranquero <address@hidden>
branch nick: emacs-23
timestamp: Fri 2011-03-11 15:05:31 +0100
message:
  Backport revno:103622 from trunk.
  
  * lisp/help-fns.el (describe-variable): Don't complete keywords.
modified:
  lisp/ChangeLog
  lisp/help-fns.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-11 12:19:08 +0000
+++ b/lisp/ChangeLog    2011-03-11 14:05:31 +0000
@@ -1,3 +1,9 @@
+2011-03-11  Juanma Barranquero  <address@hidden>
+
+       Backport revno:103622 from trunk.
+       * help-fns.el (describe-variable): Don't complete keywords.
+       Suggested by Teodor Zlatanov <address@hidden>.
+
 2011-03-11  Eli Zaretskii  <address@hidden>
 
        * files.el (file-ownership-preserved-p): Pass `integer' as an

=== modified file 'lisp/help-fns.el'
--- a/lisp/help-fns.el  2011-01-02 23:50:46 +0000
+++ b/lisp/help-fns.el  2011-03-11 14:05:31 +0000
@@ -585,9 +585,10 @@
                                     "Describe variable (default %s): " v)
                                  "Describe variable: ")
                                obarray
-                               '(lambda (vv)
-                                  (or (boundp vv)
-                                      (get vv 'variable-documentation)))
+                                (lambda (vv)
+                                  (and (not (keywordp vv))
+                                       (or (boundp vv)
+                                           (get vv 'variable-documentation))))
                                t nil nil
                                (if (symbolp v) (symbol-name v))))
      (list (if (equal val "")


reply via email to

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