emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] trunk r118041: * apropos.el (apropos-symbols-internal): Av


From: Glenn Morris
Subject: [Emacs-diffs] trunk r118041: * apropos.el (apropos-symbols-internal): Avoid error with non-symbol properties.
Date: Sat, 04 Oct 2014 19:14:09 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 118041
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/18337
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2014-10-04 12:14:03 -0700
message:
  * apropos.el (apropos-symbols-internal): Avoid error with non-symbol 
properties.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/apropos.el                apropos.el-20091113204419-o5vbwnq5f7feedwu-273
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-10-04 18:58:41 +0000
+++ b/lisp/ChangeLog    2014-10-04 19:14:03 +0000
@@ -1,5 +1,8 @@
 2014-10-04  Glenn Morris  <address@hidden>
 
+       * apropos.el (apropos-symbols-internal):
+       Avoid error with non-symbol properties.  (Bug#18337#16)
+
        * startup.el (command-line):
        Handle altered user-emacs-directory in load-path warning.  (Bug#18512)
 

=== modified file 'lisp/apropos.el'
--- a/lisp/apropos.el   2014-02-24 02:38:54 +0000
+++ b/lisp/apropos.el   2014-10-04 19:14:03 +0000
@@ -718,7 +718,7 @@
                 (setq doc (list (car properties)))
                 (while (setq properties (cdr (cdr properties)))
                   (setq doc (cons (car properties) doc)))
-                (mapconcat #'symbol-name (nreverse doc) " "))
+                (mapconcat (lambda (p) (format "%s" p)) (nreverse doc) " "))
               (when (get symbol 'widget-type)
                 (apropos-documentation-property
                  symbol 'widget-documentation t))


reply via email to

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