[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r118041: * apropos.el (apropos-symbols-internal): Avoid error with non-symbol properties.,
Glenn Morris <=