Mercurial > emacs

changeset 15192:f2aaee52dfe1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Undo previous change. Delete the version number entirely; fix up whitespace that was changed before.
author Richard M. Stallman <rms@gnu.org>
date Wed, 08 May 1996 20:37:19 +0000
parents 282d941a8073
children 4df75cda7e5b
files lisp/saveplace.el
diffstat 1 files changed, 9 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/saveplace.el	Wed May 08 20:18:35 1996 +0000
+++ b/lisp/saveplace.el	Wed May 08 20:37:19 1996 +0000
@@ -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 @@
               (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 @@
   (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)))))