From 6f96f4c9e7c8f25e7cc517b561ac741ba6f31018 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 8 May 1996 20:37:19 +0000 Subject: [PATCH] Undo previous change. Delete the version number entirely; fix up whitespace that was changed before. --- lisp/saveplace.el | 19 +++++++++---------- 1 file 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 ;; 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))))) -- 2.39.5