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