diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-10 03:50:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-10 03:50:03 +0000 |
| commit | 1cdb6e7c67365a04db3e8da50b7b3d8e91dbb477 (patch) | |
| tree | 18ab1040ffb960d61eaa206e2c00829d2da6eb29 /lisp/emacs-lisp | |
| parent | 55a7ac51e3fbf029afe8ab7792f4782ac7c0af0f (diff) | |
| download | emacs-1cdb6e7c67365a04db3e8da50b7b3d8e91dbb477.tar.gz emacs-1cdb6e7c67365a04db3e8da50b7b3d8e91dbb477.tar.bz2 emacs-1cdb6e7c67365a04db3e8da50b7b3d8e91dbb477.zip | |
(byte-compile-output-docform): Use position-bytes.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 2aa79037978..22be3b04b5d 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -9,7 +9,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.40 $") +(defconst byte-compile-version "$Revision: 2.41 $") ;; This file is part of GNU Emacs. @@ -1557,6 +1557,7 @@ list that represents a doc string reference. (setq position (byte-compile-output-as-comment (nth (nth 1 info) form) nil)) + (setq position (position-bytes position)) ;; If the doc string starts with * (a user variable), ;; negate POSITION. (if (and (stringp (nth (nth 1 info) form)) @@ -1586,6 +1587,7 @@ list that represents a doc string reference. (byte-compile-output-as-comment (cons (car form) (nth 1 form)) t))) + (setq position (position-bytes position)) (princ (format "(#$ . %d) nil" position) outbuffer) (setq form (cdr form)) (setq index (1+ index)))) |