(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 b11b0fd1f14cfdf31b119c1d95a42d0581da5f0a..230790c8631b28e4c39e507c7034348973c98379 100644 (file)
--- 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