mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(byte-compile-output-docform): Use position-bytes.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-05-10 03:50:03 +00:00
parent 55a7ac51e3
commit 1cdb6e7c67
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/bytecomp.el
View File

@ -9,7 +9,7 @@
;;; This version incorporates changes up to version 2.10 of the ;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler. ;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.40 $") (defconst byte-compile-version "$Revision: 2.41 $")
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -1557,6 +1557,7 @@ list that represents a doc string reference.
(setq position (setq position
(byte-compile-output-as-comment (byte-compile-output-as-comment
(nth (nth 1 info) form) nil)) (nth (nth 1 info) form) nil))
(setq position (position-bytes position))
;; If the doc string starts with * (a user variable), ;; If the doc string starts with * (a user variable),
;; negate POSITION. ;; negate POSITION.
(if (and (stringp (nth (nth 1 info) form)) (if (and (stringp (nth (nth 1 info) form))
@ -1586,6 +1587,7 @@ list that represents a doc string reference.
(byte-compile-output-as-comment (byte-compile-output-as-comment
(cons (car form) (nth 1 form)) (cons (car form) (nth 1 form))
t))) t)))
(setq position (position-bytes position))
(princ (format "(#$ . %d) nil" position) outbuffer) (princ (format "(#$ . %d) nil" position) outbuffer)
(setq form (cdr form)) (setq form (cdr form))
(setq index (1+ index)))) (setq index (1+ index))))