procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Undo previous change.

Browse source 
Delete the version number entirely;
fix up whitespace that was changed before.
This commit is contained in:
Richard M. Stallman 1996-05-08 20:37:19 +00:00
parent 25e2c3c778
commit 6f96f4c9e7
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/saveplace.el
View file

@ -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)))))