comparison lisp/emacs-lisp/bytecomp.el @ 11253:8f71342e7b71

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

11252:f610f9d7e3ca

	      ;; Make the doc string start at beginning of line
	      ;; for make-docfile's sake.
	      (insert "\n")
	      (setq position
		    (byte-compile-output-as-comment
		     (nth (nth 1 info) form) nil))))

       (if preface
	   (progn
	     (insert preface)
	     (prin1 name outbuffer)))

11253:8f71342e7b71

	      ;; Make the doc string start at beginning of line
	      ;; for make-docfile's sake.
	      (insert "\n")
	      (setq position
		    (byte-compile-output-as-comment
		     (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
	     (insert preface)
	     (prin1 name outbuffer)))