From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 23 Apr 2005 16:40:24 +0000 (+0000)
Subject: (save-place-to-alist): Use with-no-warnings.
X-Git-Tag: ttn-vms-21-2-B4~804
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06e24ef7054b3753fdf4b1daadecd1de77b95145;p=emacs.git

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

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index cb61c8383b5..9dc7b858e37 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -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