From: Kenichi Handa <handa@m17n.org>
Date: Fri, 28 Aug 1998 12:22:39 +0000 (+0000)
Subject: (byte-compile-output-as-comment):
X-Git-Tag: emacs-20.4~1814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d5975faa83dc3b3c5506e09c7690177e6a23374;p=emacs.git

(byte-compile-output-as-comment):
Calculate the total bytes using position-bytes instead of
char-bytes.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 8107571d032..af8d12b2151 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.49 $")
+(defconst byte-compile-version "$Revision: 2.50 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1907,8 +1907,7 @@ list that represents a doc string reference.
 ;; and return the file position it will have.
 ;; If QUOTED is non-nil, print with quoting; otherwise, print without quoting.
 (defun byte-compile-output-as-comment (exp quoted)
-  (let ((position (point))
-	total-bytes)
+  (let ((position (point)))
     (set-buffer
      (prog1 (current-buffer)
        (set-buffer outbuffer)
@@ -1932,12 +1931,8 @@ list that represents a doc string reference.
        (goto-char (point-max))
        (insert "\037")
        (goto-char position)
-       (setq total-bytes 0)
-       (while (not (eobp))
-	 (setq total-bytes (+ total-bytes (char-bytes (char-after (point)))))
-	 (forward-char 1))
-       (goto-char position)
-       (insert "#@" (format "%d" total-bytes))
+       (insert "#@" (format "%d" (- (position-bytes (point-max))
+				    (position-bytes position))))
 
        ;; Save the file position of the object.
        ;; Note we should add 1 to skip the space