From 428c8e2f3c451850ebe355a9a1e6b936b0ce7ccd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Apr 1995 07:29:33 +0000 Subject: [PATCH] (byte-compile-output-docform): Output doc string position as negative number, if doc string starts with *. --- lisp/emacs-lisp/bytecomp.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- 2.39.5