[Emacs-diffs] Changes to emacs/lisp/bookmark.el

[Karl Fogel]

Index: emacs/lisp/bookmark.el
diff -c emacs/lisp/bookmark.el:1.84 emacs/lisp/bookmark.el:1.85
*** emacs/lisp/bookmark.el:1.84 Wed Oct 19 09:45:43 2005
--- emacs/lisp/bookmark.el      Sat Nov 12 20:30:22 2005
***************
*** 1352,1363 ****
      (save-window-excursion
        (if (>= baud-rate 9600)
            (message "Saving bookmarks to file %s..." file))
!       (set-buffer (let ((enable-local-variables nil))
!                     (find-file-noselect file)))
        (goto-char (point-min))
        (let ((print-length nil)
            (print-level nil))
-       (delete-region (point-min) (point-max))
        (bookmark-insert-file-format-version-stamp)
        (pp bookmark-alist (current-buffer))
        (let ((version-control
--- 1352,1362 ----
      (save-window-excursion
        (if (>= baud-rate 9600)
            (message "Saving bookmarks to file %s..." file))
!       (set-buffer (get-buffer-create " *Bookmarks*"))
        (goto-char (point-min))
+       (delete-region (point-min) (point-max))
        (let ((print-length nil)
            (print-level nil))
        (bookmark-insert-file-format-version-stamp)
        (pp bookmark-alist (current-buffer))
        (let ((version-control
***************
*** 1368,1374 ****
                (t
                 t))))
            (condition-case nil
!               (write-file file)
              (file-error (message "Can't write %s" file)))
          (kill-buffer (current-buffer))
          (if (>= baud-rate 9600)
--- 1367,1373 ----
                (t
                 t))))
            (condition-case nil
!               (write-region (point-min) (point-max) file)
              (file-error (message "Can't write %s" file)))
          (kill-buffer (current-buffer))
          (if (>= baud-rate 9600)