mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-10 09:12:15 +00:00
lisp/descr-text.el (describe-char-categories): Accept multiline descriptions.
This commit is contained in:
parent
88d9610cae
commit
df9a7357d2
@ -1,3 +1,8 @@
|
||||
2011-09-29 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* descr-text.el (describe-char-categories): Accept category
|
||||
descriptions more than one line long.
|
||||
|
||||
2011-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* simple.el (delete-trailing-whitespace): Fix last change.
|
||||
|
@ -366,9 +366,10 @@ This function is semi-obsolete. Use `get-char-code-property'."
|
||||
(list (mapconcat
|
||||
(lambda (x)
|
||||
(let* ((c (category-docstring x))
|
||||
(doc (if (string-match "\\`\\(.*?\\)\n\\(.*\\)\\'" c)
|
||||
(doc (if (string-match "\\`\\(.*?\\)\n" c)
|
||||
(propertize (match-string 1 c)
|
||||
'help-echo (match-string 2 c))
|
||||
'help-echo
|
||||
(substring c (1+ (match-end 1))))
|
||||
c)))
|
||||
(format "%c:%s" x doc)))
|
||||
mnemonics ", ")))))
|
||||
|
Loading…
Reference in New Issue
Block a user