Mercurial > emacs

changeset 22644:5f67eacb5c04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-split): Convert positions to bytes to put in file. (Info-tagify): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Mon, 29 Jun 1998 18:34:43 +0000
parents 4f99ccb85f3a
children e5b201634497
files lisp/informat.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/informat.el	Mon Jun 29 18:34:24 1998 +0000
+++ b/lisp/informat.el	Mon Jun 29 18:34:43 1998 +0000
@@ -76,7 +76,8 @@
 		(setq list (nreverse list))
 		(while list
 		  (insert "Node: " (car (car list)) ?\177)
-		  (princ (car (cdr (car list))) (current-buffer))
+		  (princ (position-bytes (car (cdr (car list))))
+			 (current-buffer))
 		  (insert ?\n)
 		  (setq list (cdr list)))
 		(insert "\^_\nEnd tag table\n")))))
@@ -106,7 +107,8 @@
   (search-forward "\^_")
   (forward-char -1)
   (let ((start (point))
-	(chars-deleted 0)
+	(start-byte (position-bytes (point)))
+	(bytes-deleted 0)
 	subfiles
 	(subfile-number 1)
 	(case-fold-search t)
@@ -128,7 +130,7 @@
 	(goto-char (min (+ (point) 50000) (point-max)))
 	(search-forward "\^_" nil 'move)
 	(setq subfiles
-	      (cons (list (+ start chars-deleted)
+	      (cons (list (+ start-byte bytes-deleted)
 			  (concat (file-name-nondirectory filename)
 				  (format "-%d" subfile-number)))
 		    subfiles))
@@ -139,7 +141,8 @@
 	(delete-region (1- (point)) (point))
 	;; Back up over the final ^_.
 	(forward-char -1)
-	(setq chars-deleted (+ chars-deleted (- (point) start)))
+	(setq bytes-deleted (+ bytes-deleted (- (position-bytes (point))
+						start-byte)))
 	(delete-region start (point))
 	(setq subfile-number (1+ subfile-number))))
     (while subfiles