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

Diff of /emacs/lisp/calc/calc.el

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

revision 1.43 by jpb, Sun Jan 9 15:48:20 2005 UTC revision 1.44 by jpb, Mon Jan 10 04:07:04 2005 UTC
# Line 257  scientific notation in calc-mode.") Line 257  scientific notation in calc-mode.")
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))

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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