/[emacs]/emacs/lisp/saveplace.el
ViewVC logotype

Diff of /emacs/lisp/saveplace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by gerd, Sun Oct 21 23:03:27 2001 UTC revision 1.23.4.1 by miles, Fri Apr 4 06:20:10 2003 UTC
# Line 172  To save places automatically in all file Line 172  To save places automatically in all file
172                  (delete-region (point-min) (point-max))                  (delete-region (point-min) (point-max))
173                  (insert-file-contents file)                  (insert-file-contents file)
174                  (goto-char (point-min))                  (goto-char (point-min))
175                  (setq save-place-alist                  (setq save-place-alist
176                        (car (read-from-string                        (car (read-from-string
177                              (buffer-substring (point-min) (point-max)))))                              (buffer-substring (point-min) (point-max)))))
178    
# Line 192  To save places automatically in all file Line 192  To save places automatically in all file
192                                (setcdr s nil)                                (setcdr s nil)
193                              (setq count (1+ count)))                              (setq count (1+ count)))
194                            (setq s (cdr s))))))                            (setq s (cdr s))))))
195                      
196                  (kill-buffer (current-buffer))                  (kill-buffer (current-buffer))
197                  (message "Loading places from %s...done" file)))                  (message "Loading places from %s...done" file)))
198            nil))))            nil))))
# Line 230  To save places automatically in all file Line 230  To save places automatically in all file
230    (if save-place-loaded    (if save-place-loaded
231        (save-place-alist-to-file)))        (save-place-alist-to-file)))
232    
233  (add-hook 'find-file-hooks 'save-place-find-file-hook t)  (add-hook 'find-file-hook 'save-place-find-file-hook t)
234    
235  (add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook)  (add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook)
236    

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.23.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26