From cf3a09b2585096657c4e42b89c765ad055a9e3c3 Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Wed, 8 May 1996 20:02:29 +0000 Subject: [PATCH] Merged cosmetic differences between FSF version and local copy. In the future, diffmon will make this unnecessary. (save-place-version): new var; init to 1.4. (save-place-limit): init to nil. --- lisp/saveplace.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/saveplace.el b/lisp/saveplace.el index 9b9268051e..6689f9bf69 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -5,7 +5,7 @@ ;; Author: Karl Fogel ;; Maintainer: FSF ;; Created: July, 1993 -;; Version: 1.2 +;; Version: See variable `save-place-version'. ;; Keywords: bookmarks, placeholders ;; This file is part of GNU Emacs. @@ -25,8 +25,6 @@ ;; 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 @@ -36,11 +34,13 @@ ;; 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 +114,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)))))) @@ -205,8 +205,8 @@ To save places automatically in all files, put this in your `.emacs' file: (let ((cell (assoc buffer-file-name save-place-alist))) (if cell (progn - (or after-find-file-from-revert-buffer - (goto-char (cdr cell))) + (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.20.1