[COMMIT] Check for a leading * before deleting it, #'hyper-apropos-grok-variables

APPROVE COMMIT NOTE: This patch has been committed # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1514201662 0 # Mon Dec 25 11:34:22 2017 +0000 # Node ID 296ee062f9f9ce4957f6aa450a2b4ad7fb57935c # Parent 75597c755b6716ef4ffa782f37650dd48792d6ea 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. diff -r 75597c755b67 -r 296ee062f9f9 lisp/ChangeLog --- a/lisp/ChangeLog Sun Dec 24 14:16:37 2017 +0000 +++ b/lisp/ChangeLog Mon Dec 25 11:34:22 2017 +0000 ＠＠ -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 75597c755b67 -r 296ee062f9f9 lisp/hyper-apropos.el --- a/lisp/hyper-apropos.el Sun Dec 24 14:16:37 2017 +0000 +++ b/lisp/hyper-apropos.el Mon Dec 25 11:34:22 2017 +0000 ＠＠ -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))) -- ‘As I sat looking up at the Guinness ad, I could never figure out / How your man stayed up on the surfboard after forty pints of stout’ (C. Moore)