From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Apr 1995 07:29:33 +0000 (+0000)
Subject: (byte-compile-output-docform): Output doc string position
X-Git-Tag: emacs-19.34~4605
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=428c8e2f3c451850ebe355a9a1e6b936b0ce7ccd;p=emacs.git

(byte-compile-output-docform): Output doc string position
as negative number, if doc string starts with *.
---

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