X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/939d70190345618e4f5300429be1b799106b2b27..8d9386a1678fdcdf048656d71d58f2228b642b70:/lisp/saveplace.el diff --git a/lisp/saveplace.el b/lisp/saveplace.el index f5f5111f17..9dc7b858e3 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -1,8 +1,8 @@ -;;; saveplace.el --- automatically save place in files. +;;; saveplace.el --- automatically save place in files -;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2001 Free Software Foundation, Inc. -;; Author: Karl Fogel +;; Author: Karl Fogel ;; Maintainer: FSF ;; Created: July, 1993 ;; Keywords: bookmarks, placeholders @@ -61,8 +61,12 @@ This variable is automatically buffer-local. If you wish your place in any file to always be automatically saved, simply put this in your `~/.emacs' file: -\(setq-default save-place t\)" +\(setq-default save-place t) +\(require 'saveplace) + +or else use the Custom facility to set this option." :type 'boolean + :require 'saveplace :group 'save-place) (make-variable-buffer-local 'save-place) @@ -93,6 +97,40 @@ value of `version-control'." (const :tag "No Limit" nil)) :group 'save-place) +(defcustom save-place-forget-unreadable-files t + "Non-nil means forget place in unreadable files. + +The filenames in `save-place-alist' that do not match +`save-place-skip-check-regexp' are filtered through +`file-readable-p'. if nil, their alist entries are removed. + +You may do this anytime by calling the complementary function, +`save-place-forget-unreadable-files'. When this option is turned on, +this happens automatically before saving `save-place-alist' to +`save-place-file'." + :type 'boolean :group 'save-place) + +(defcustom save-place-save-skipped t + "If non-nil, remember files matching `save-place-skip-check-regexp'. + +When filtering `save-place-alist' for unreadable files, some will not +be checked, based on said regexp, and instead saved or forgotten based +on this flag." + :type 'boolean :group 'save-place) + +(defcustom save-place-skip-check-regexp + ;; thanks to ange-ftp-name-format + "\\`/\\(?:cdrom\\|floppy\\|mnt\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)" + "Regexp whose file names shall not be checked for readability. + +When forgetting unreadable files, file names matching this regular +expression shall not be checked for readability, but instead be +subject to `save-place-save-skipped'. + +Files for which such a check may be inconvenient include those on +removable and network volumes." + :type 'regexp :group 'save-place) + (defun toggle-save-place (&optional parg) "Toggle whether to save your place in this file between sessions. If this mode is enabled, point is recorded when you kill the buffer @@ -128,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 @@ -137,13 +176,44 @@ To save places automatically in all files, put this in your `.emacs' file: (cons (cons buffer-file-name position) save-place-alist))))))) +(defun save-place-forget-unreadable-files () + "Remove unreadable files from `save-place-alist'. +For each entry in the alist, if `file-readable-p' returns nil for the +filename, remove the entry. Save the new alist \(as the first pair +may have changed\) back to `save-place-alist'." + (interactive) + ;; the following was adapted from an in-place filtering function, + ;; `filter-mod', used in the original. + (unless (null save-place-alist) ;says it better than `when' + ;; first, check all except first + (let ((fmprev save-place-alist) (fmcur (cdr save-place-alist))) + (while fmcur ;not null + ;; a value is only saved when it becomes FMPREV. + (if (if (string-match save-place-skip-check-regexp (caar fmcur)) + save-place-save-skipped + (file-readable-p (caar fmcur))) + (setq fmprev fmcur) + (setcdr fmprev (cdr fmcur))) + (setq fmcur (cdr fmcur)))) + ;; test first pair, keep it if OK, otherwise 2nd element, which + ;; may be '() + (unless (if (string-match save-place-skip-check-regexp + (caar save-place-alist)) + save-place-save-skipped + (file-readable-p (caar save-place-alist))) + (setq save-place-alist (cdr save-place-alist))))) + (defun save-place-alist-to-file () (let ((file (expand-file-name save-place-file))) (save-excursion (message "Saving places to %s..." file) (set-buffer (get-buffer-create " *Saved Places*")) (delete-region (point-min) (point-max)) - (print save-place-alist (current-buffer)) + (when save-place-forget-unreadable-files + (save-place-forget-unreadable-files)) + (let ((print-length nil) + (print-level nil)) + (print save-place-alist (current-buffer))) (let ((version-control (cond ((null save-place-version-control) nil) @@ -151,7 +221,9 @@ To save places automatically in all files, put this in your `.emacs' file: ((eq 'nospecial save-place-version-control) version-control) (t t)))) - (write-file file) + (condition-case nil + (write-file file) + (file-error (message "Can't write %s" file))) (kill-buffer (current-buffer)) (message "Saving places to %s...done" file))))) @@ -171,7 +243,7 @@ To save places automatically in all files, put this in your `.emacs' file: (delete-region (point-min) (point-max)) (insert-file-contents file) (goto-char (point-min)) - (setq save-place-alist + (setq save-place-alist (car (read-from-string (buffer-substring (point-min) (point-max))))) @@ -191,7 +263,7 @@ To save places automatically in all files, put this in your `.emacs' file: (setcdr s nil) (setq count (1+ count))) (setq s (cdr s)))))) - + (kill-buffer (current-buffer)) (message "Loading places from %s...done" file))) nil)))) @@ -229,7 +301,7 @@ To save places automatically in all files, put this in your `.emacs' file: (if save-place-loaded (save-place-alist-to-file))) -(add-hook 'find-file-hooks 'save-place-find-file-hook t) +(add-hook 'find-file-hook 'save-place-find-file-hook t) (add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook) @@ -237,5 +309,5 @@ To save places automatically in all files, put this in your `.emacs' file: (provide 'saveplace) ; why not... +;;; arch-tag: 3c2ef47b-0a22-4558-b116-118c9ef454a0 ;;; saveplace.el ends here -