# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797239773 0
# Node ID 8f71342e7b71b6ee1f751ec6591fe058042d3011
# Parent  f610f9d7e3caccf77a659153cacca66919f72095
(byte-compile-output-docform): Output doc string position
as negative number, if doc string starts with *.

diff -r f610f9d7e3ca -r 8f71342e7b71 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Fri Apr 07 07:18:00 1995 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Fri Apr 07 07:29:33 1995 +0000
@@ -1424,7 +1424,13 @@
 	      (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