257 |
(defun calc-mode-var-list-restore-saved-values () |
(defun calc-mode-var-list-restore-saved-values () |
258 |
(let ((newvarlist '())) |
(let ((newvarlist '())) |
259 |
(save-excursion |
(save-excursion |
260 |
(let (pos) |
(let (pos |
261 |
(set-buffer (find-file-noselect (substitute-in-file-name |
(file (substitute-in-file-name calc-settings-file))) |
262 |
calc-settings-file))) |
(when (and |
263 |
(goto-char (point-min)) |
(file-regular-p file) |
264 |
(when (and (search-forward ";;; Mode settings stored by Calc" nil t) |
(set-buffer (find-file-noselect file)) |
265 |
(progn |
(goto-char (point-min)) |
266 |
(forward-line 1) |
(search-forward ";;; Mode settings stored by Calc" nil t) |
267 |
(setq pos (point)) |
(progn |
268 |
(search-forward "\n;;; End of mode settings" nil t))) |
(forward-line 1) |
269 |
|
(setq pos (point)) |
270 |
|
(search-forward "\n;;; End of mode settings" nil t))) |
271 |
(beginning-of-line) |
(beginning-of-line) |
272 |
(calc-mode-var-list-restore-default-values) |
(calc-mode-var-list-restore-default-values) |
273 |
(eval-region pos (point)) |
(eval-region pos (point)) |