comparison lisp/calc/calc-ext.el @ 47695:37adf7fffb23

(calc-reset): Don't bind `executing-kbd-macro'. Call `calc-flush-caches' with inhibit-msg arg. (calc-change-mode): Remove extra arg for `calc-save-modes'.
author Colin Walters <walters@gnu.org>
date Mon, 30 Sep 2002 04:24:40 +0000
parents eb535b77722f
children f4d68f97221e
comparison
equal deleted inserted replaced
47694:c7b1f2c10ed4 47695:37adf7fffb23
1286 (mapcar (function (lambda (v) (set v nil))) calc-local-var-list) 1286 (mapcar (function (lambda (v) (set v nil))) calc-local-var-list)
1287 (mapcar (function (lambda (v) (set (car v) (nth 1 v)))) 1287 (mapcar (function (lambda (v) (set (car v) (nth 1 v))))
1288 calc-mode-var-list)) 1288 calc-mode-var-list))
1289 (calc-set-language nil nil t) 1289 (calc-set-language nil nil t)
1290 (calc-mode) 1290 (calc-mode)
1291 (let ((executing-kbd-macro "")) ; inhibit message 1291 (calc-flush-caches t)
1292 (calc-flush-caches))
1293 (run-hooks 'calc-reset-hook)) 1292 (run-hooks 'calc-reset-hook))
1294 (calc-wrapper 1293 (calc-wrapper
1295 (let ((win (get-buffer-window (current-buffer)))) 1294 (let ((win (get-buffer-window (current-buffer))))
1296 (calc-realign 0) 1295 (calc-realign 0)
1297 (if win 1296 (if win
1484 (progn 1483 (progn
1485 (or (and refresh (calc-do-refresh)) 1484 (or (and refresh (calc-do-refresh))
1486 (calc-refresh-evaltos)) 1485 (calc-refresh-evaltos))
1487 (and (eq calc-mode-save-mode 'save) 1486 (and (eq calc-mode-save-mode 'save)
1488 (not (equal var '(calc-mode-save-mode))) 1487 (not (equal var '(calc-mode-save-mode)))
1489 (calc-save-modes t)))) 1488 (calc-save-modes))))
1490 (if calc-embedded-info (calc-embedded-modes-change var)) 1489 (if calc-embedded-info (calc-embedded-modes-change var))
1491 (symbol-value (car var))))) 1490 (symbol-value (car var)))))
1492 1491
1493 (defun calc-toggle-banner () 1492 (defun calc-toggle-banner ()
1494 "Toggle display of the friendly greeting calc normally shows above the stack." 1493 "Toggle display of the friendly greeting calc normally shows above the stack."