From 1cdb6e7c67365a04db3e8da50b7b3d8e91dbb477 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 10 May 1998 03:50:03 +0000 Subject: [PATCH] (byte-compile-output-docform): Use position-bytes. --- lisp/emacs-lisp/bytecomp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))) -- 2.39.2