Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(bookmark-write-file): Bind print-length and

Browse source 
print-level to nil.  From Tom Capey <tomc@edina.co.uk>.
This commit is contained in:
Gerd Moellmann 2001-09-04 13:17:56 +00:00
parent e73c5b91df
commit 1672462f74
2 changed files with 19 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2001-09-04 Gerd Moellmann <gerd@gnu.org>
* bookmark.el (bookmark-write-file): Bind print-length and
print-level to nil. From Tom Capey <tomc@edina.co.uk>.
* obsolete/uncompress.el: Moved there from lisp/.
* comint.el (comint-insert-clicked-input): Goto point-max before

31
lisp/bookmark.el
View file

@ -1347,21 +1347,22 @@ for a file, defaulting to the file defined by variable
(set-buffer (let ((enable-local-variables nil))
(find-file-noselect file)))
(goto-char (point-min))
(delete-region (point-min) (point-max))
(bookmark-insert-file-format-version-stamp)
(pp bookmark-alist (current-buffer))
(let ((version-control
(cond
((null bookmark-version-control) nil)
((eq 'never bookmark-version-control) 'never)
((eq 'nospecial bookmark-version-control) version-control)
(t
t))))
(write-file file)
(kill-buffer (current-buffer))
(if (>= baud-rate 9600)
(message "Saving bookmarks to file %s...done" file))
))))
(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
(cond
((null bookmark-version-control) nil)
((eq 'never bookmark-version-control) 'never)
((eq 'nospecial bookmark-version-control) version-control)
(t
t))))
(write-file file)
(kill-buffer (current-buffer))
(if (>= baud-rate 9600)
(message "Saving bookmarks to file %s...done" file)))))))
(defun bookmark-import-new-list (new-list)