(Help-Xref): Texinfo usage fix.

[gnu-emacs] / lisp / saveplace.el

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index cb61c8383b503d8038acd975d0087c53030b84d0..34c88a8994880fed49e34d193a6350cca46d346a 100644 (file)
--- 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
@@ -221,7 +222,8 @@ may have changed\) back to `save-place-alist'."
               (t
                t))))
        (condition-case nil
-           (write-file file)
+           ;; Don't use write-file; we don't want this buffer to visit it.
+           (write-region (point-min) (point-max) file)
          (file-error (message "Can't write %s" file)))
         (kill-buffer (current-buffer))
         (message "Saving places to %s...done" file)))))