1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/commits/296ee062f9f9/ Changeset: 296ee062f9f9 User: kehoea Date: 2017-12-25 11:34:22+00:00 Summary: Check for a leading * before deleting it, #'hyper-apropos-grok-variables lisp/ChangeLog addition: 2017-12-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; * hyper-apropos.el (hyper-apropos-grok-variables): User variables' docstrings do not necessarily start with *, check for one before removing the first character from the output. Affected #: 2 files diff -r 75597c755b6716ef4ffa782f37650dd48792d6ea -r 296ee062f9f9ce4957f6aa450a2b4ad7fb57935c lisp/ChangeLog --- a/lisp/ChangeLog +++ b/lisp/ChangeLog ＠＠ -1,3 +1,9 ＠＠ +2017-12-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * hyper-apropos.el (hyper-apropos-grok-variables): + User variables' docstrings do not necessarily start with *, check + for one before removing the first character from the output. + 2017-12-24 Aidan Kehoe <kehoea(a)parhasard.net&gt; * test-harness.el (test-harness-from-buffer): diff -r 75597c755b6716ef4ffa782f37650dd48792d6ea -r 296ee062f9f9ce4957f6aa450a2b4ad7fb57935c lisp/hyper-apropos.el --- a/lisp/hyper-apropos.el +++ b/lisp/hyper-apropos.el ＠＠ -380,7 +380,13 ＠＠ (string-match "\\`\n+" doc)) (setq doc (substring doc (match-end 0)))) (insert-face (if doc - (concat " - " (subseq doc (if userp 1 0) + (concat " - " (subseq doc + (or + (and userp + (position ?* doc + :test-not + #'eq)) + 0) (position ?\n doc))) " - Not documented.") 'hyper-apropos-documentation))) Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email.