Mercurial > emacs

changeset 6700:db2292ce4894

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(save-place-find-file-hook, save-place-kill-emacs-hook): New functions. (hooks for find-file-hooks,kill-emacs-hook): Use those new functions.
author Richard M. Stallman <rms@gnu.org>
date Wed, 06 Apr 1994 05:04:40 +0000
parents 59e74bc34228
children 4fe5b1447c3f
files lisp/saveplace.el
diffstat 1 files changed, 18 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/saveplace.el	Wed Apr 06 04:54:35 1994 +0000
+++ b/lisp/saveplace.el	Wed Apr 06 05:04:40 1994 +0000
@@ -5,7 +5,7 @@
 ;; Author: Karl Fogel <kfogel@cs.oberlin.edu>
 ;; Maintainer: FSF
 ;; Created: July, 1993
-;; Version: 1.1
+;; Version: 1.2
 ;; Keywords: bookmarks, placeholders
 
 ;; This file is part of GNU Emacs.
@@ -32,9 +32,6 @@
 ;;
 ;; Thanks to Stefan Schoef, who sent a patch with the
 ;; `save-place-version-control' stuff in it.
-;;
-;; Don't autoload this, rather, load it, since it modifies
-;; find-file-hooks and other hooks.
 
 ;; this is what I was using during testing:
 ;; (define-key ctl-x-map "p" 'toggle-save-place)
@@ -175,29 +172,27 @@
 	;; overhead of function call by checking here too.
 	(and buffer-file-name (save-place-to-alist))
 	(setq buf-list (cdr buf-list))))))
-    
-(add-hook 
- 'find-file-hooks
- (function
-  (lambda ()
-    (or save-place-loaded (load-save-place-alist-from-file))
-    (let ((cell (assoc buffer-file-name save-place-alist)))
-      (if cell
-	  (progn
-	    (goto-char (cdr cell))
-	    ;; and make sure it will be saved again for later.
-	    (setq save-place t))))))
- t)
 
-(add-hook 'kill-emacs-hook
-	  (function
-	   (lambda ()
-	     (progn
-	       (save-places-to-alist)
-	       (save-place-alist-to-file)))))
+(defun save-place-find-file-hook ()
+  (or save-place-loaded (load-save-place-alist-from-file))
+  (let ((cell (assoc buffer-file-name save-place-alist)))
+    (if cell
+        (progn
+          (goto-char (cdr cell))
+          ;; and make sure it will be saved again for later
+          (setq save-place t)))))
+
+(defun save-place-kill-emacs-hook
+  (save-places-to-alist)
+  (save-place-alist-to-file))
+
+(add-hook 'find-file-hooks 'save-place-find-file-hook t)
+
+(add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook)
 
 (add-hook 'kill-buffer-hook 'save-place-to-alist)
 
 (provide 'saveplace) ; why not...
 
 ;;; saveplace.el ends here
+