diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-07 07:29:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-07 07:29:33 +0000 |
| commit | 428c8e2f3c451850ebe355a9a1e6b936b0ce7ccd (patch) | |
| tree | b334658c3dfad6c133753376d894425c6c47077f /lisp/emacs-lisp | |
| parent | 0c00bc70d8732e8c3eccadaf1b85886c26aa1781 (diff) | |
| download | emacs-428c8e2f3c451850ebe355a9a1e6b936b0ce7ccd.tar.gz emacs-428c8e2f3c451850ebe355a9a1e6b936b0ce7ccd.tar.bz2 emacs-428c8e2f3c451850ebe355a9a1e6b936b0ce7ccd.zip | |
(byte-compile-output-docform): Output doc string position
as negative number, if doc string starts with *.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b11b0fd1f14..230790c8631 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 |