procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
as negative number, if doc string starts with *.
This commit is contained in:
Richard M. Stallman 1995-04-07 07:29:33 +00:00
parent 0c00bc70d8
commit 428c8e2f3c
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/bytecomp.el
View file

@ -1424,7 +1424,13 @@ With argument, insert value in current buffer after the form."
(insert "\n")
(setq position
(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
(progn