mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(save-place-to-alist): Use with-no-warnings.

Browse Source
This commit is contained in:
Richard M. Stallman 2005-04-23 16:40:24 +00:00
parent a99df87d8e
commit 06e24ef705
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/saveplace.el
View File

@ -166,7 +166,8 @@ To save places automatically in all files, put this in your `.emacs' file:
(let ((cell (assoc buffer-file-name save-place-alist))
(position (if (not (eq major-mode 'hexl-mode))
(point)
(1+ (hexl-current-address)))))
(with-no-warnings
(1+ (hexl-current-address))))))
(if cell
(setq save-place-alist (delq cell save-place-alist)))
(if (and save-place