diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-29 18:34:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-29 18:34:43 +0000 |
| commit | 93e7ada98147db1b93e3009278687ef03771bdbe (patch) | |
| tree | 87c64ff10b3028776fe50c4b3ec28a47cc7076a8 /lisp/informat.el | |
| parent | e99452648333d412a1b4dfb8b159e540cfb47e04 (diff) | |
| download | emacs-93e7ada98147db1b93e3009278687ef03771bdbe.tar.gz | |
(Info-split): Convert positions to bytes to put in file.
(Info-tagify): Likewise.
Diffstat (limited to 'lisp/informat.el')
| -rw-r--r-- | lisp/informat.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/informat.el b/lisp/informat.el index 36f0c560675..36a9bf11134 100644 --- a/lisp/informat.el +++ b/lisp/informat.el @@ -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 @@ contains just the tag table and a directory of subfiles." (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 @@ contains just the tag table and a directory of subfiles." (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 @@ contains just the tag table and a directory of subfiles." (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 |