Commit 428c8e2f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(byte-compile-output-docform): Output doc string position

as negative number, if doc string starts with *.
parent 0c00bc70
...@@ -1424,7 +1424,13 @@ With argument, insert value in current buffer after the form." ...@@ -1424,7 +1424,13 @@ With argument, insert value in current buffer after the form."
(insert "\n") (insert "\n")
(setq position (setq position
(byte-compile-output-as-comment (byte-compile-output-as-comment
(nth (nth 1 info) form) nil)))) (nth (nth 1 info) form) nil))
;; If the doc string starts with * (a user variable),
;; negate POSITION.
(if (and (stringp (nth (nth 1 info) form))
(> (length (nth (nth 1 info) form)) 0)
(eq (aref (nth (nth 1 info) form) 0) ?*))
(setq position (- position)))))
(if preface (if preface
(progn (progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment