Mercurial > emacs
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." |