Mercurial > emacs

comparison lisp/saveplace.el @ 13600:4c8f65a17dc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(save-place-to-alist): Handle hexl-mode specially.
author Richard M. Stallman <rms@gnu.org>
date Mon, 20 Nov 1995 05:39:19 +0000
parents 5554c5e451ae
children abc765f9bee3
comparison
equal deleted inserted replaced
13599:4bb7e84fec15 13600:4c8f65a17dc9
105 (let ((cell (assoc buffer-file-name save-place-alist))) 105 (let ((cell (assoc buffer-file-name save-place-alist)))
106 (if cell 106 (if cell
107 (setq save-place-alist (delq cell save-place-alist)))) 107 (setq save-place-alist (delq cell save-place-alist))))
108 (if save-place 108 (if save-place
109 (setq save-place-alist 109 (setq save-place-alist
110 (cons (cons buffer-file-name (point)) 110 (cons (cons buffer-file-name
111 (if (not (eq major-mode 'hexl-mode))
112 (point)
113 (1+ (hexl-current-address))))
111 save-place-alist)))))) 114 save-place-alist))))))
112 115
113 (defun save-place-alist-to-file () 116 (defun save-place-alist-to-file ()
114 (let ((file (expand-file-name save-place-file))) 117 (let ((file (expand-file-name save-place-file)))
115 (save-excursion 118 (save-excursion