diff options
author | Richard M. Stallman <[email protected]> | 1996-05-08 20:37:19 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1996-05-08 20:37:19 +0000 |
commit | 6f96f4c9e7c8f25e7cc517b561ac741ba6f31018 (patch) | |
tree | 7697aeeaa67f92a1ede50a21302c33f1be256c49 /lisp/saveplace.el | |
parent | 25e2c3c7784674828dcdc99f16c75c8afc24e9b8 (diff) |
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 6689f9bf69..364e766dcb 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -5,7 +5,6 @@ ;; Author: Karl Fogel <[email protected]> ;; 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))))) |