diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-05-08 20:37:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-05-08 20:37:19 +0000 |
| commit | baadb3e43002eb42c258596c9b0043f583fdbe32 (patch) | |
| tree | 7f3095029ff237f33df4a8dde71c4795c4053894 /lisp/saveplace.el | |
| parent | fde13fbed6c260e318fa17114d12d5dc1f6ee034 (diff) | |
| download | emacs-baadb3e43002eb42c258596c9b0043f583fdbe32.tar.gz | |
Undo previous change.
Delete the version number entirely;
fix up whitespace that was changed before.
Diffstat (limited to 'lisp/saveplace.el')
| -rw-r--r-- | lisp/saveplace.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/saveplace.el b/lisp/saveplace.el index 6689f9bf698..364e766dcb0 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -5,7 +5,6 @@ ;; Author: Karl Fogel <kfogel@cs.oberlin.edu> ;; Maintainer: FSF ;; Created: July, 1993 -;; Version: See variable `save-place-version'. ;; Keywords: bookmarks, placeholders ;; This file is part of GNU Emacs. @@ -25,6 +24,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;; Automatically save place in files, so that visiting them later ;; (even during a different Emacs session) automatically moves point ;; to the saved position, when the file is first found. Uses the @@ -34,13 +35,11 @@ ;; Thanks to Stefan Schoef, who sent a patch with the ;; `save-place-version-control' stuff in it. +;;; Code: + ;; this is what I was using during testing: ;; (define-key ctl-x-map "p" 'toggle-save-place) -(defconst save-place-version "1.4" - "The version number of this release of saveplace. This is unrelated -to the version of Emacs itself, except that they change colinearly.") - (defvar save-place-alist nil "Alist of saved places to go back to when revisiting files. Each element looks like (FILENAME . POSITION); @@ -114,8 +113,8 @@ To save places automatically in all files, put this in your `.emacs' file: (setq save-place-alist (delq cell save-place-alist)))) (if save-place (setq save-place-alist - (cons (cons buffer-file-name - (if (not (eq major-mode 'hexl-mode)) + (cons (cons buffer-file-name + (if (not (eq major-mode 'hexl-mode)) (point) (1+ (hexl-current-address)))) save-place-alist)))))) @@ -204,9 +203,9 @@ To save places automatically in all files, put this in your `.emacs' file: (or save-place-loaded (load-save-place-alist-from-file)) (let ((cell (assoc buffer-file-name save-place-alist))) (if cell - (progn - (or after-find-file-from-revert-buffer - (goto-char (cdr cell))) + (progn + (or after-find-file-from-revert-buffer + (goto-char (cdr cell))) ;; and make sure it will be saved again for later (setq save-place t))))) |