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

1 files changed, 2 insertions, 1 deletions

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