summaryrefslogtreecommitdiff
path: root/lisp/calc/calc-mode.el
diff options
context:
space:
mode:
authorColin Walters <walters@gnu.org>2002-09-30 04:25:15 +0000
committerColin Walters <walters@gnu.org>2002-09-30 04:25:15 +0000
commitb27614ceff00069db05489d08a07c50b14b33971 (patch)
tree64ff506105893703354a97c20862d4a14c1dbc9d /lisp/calc/calc-mode.el
parent2528da6a32002a7d597784e4dde02453625f68ef (diff)
downloademacs-b27614ceff00069db05489d08a07c50b14b33971.tar.gz
(calc-save-modes): Remove `quiet' arg; Don't bind `executing-kbd-macro'.
Diffstat (limited to 'lisp/calc/calc-mode.el')
-rw-r--r--lisp/calc/calc-mode.el8
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el
index 9d26ea50e45..50bdf9854be 100644
--- a/lisp/calc/calc-mode.el
+++ b/lisp/calc/calc-mode.el
@@ -267,7 +267,7 @@
;;; Mode commands.
-(defun calc-save-modes (&optional quiet)
+(defun calc-save-modes ()
(interactive)
(calc-wrapper
(let (pos
@@ -308,11 +308,7 @@
vals (cdr vals))))
(run-hooks 'calc-mode-save-hook)
(insert ";;; End of mode settings\n")
- (if quiet
- ;; FIXME: why is this here? -cgw 2001.11.12
- (let ((executing-kbd-macro "")) ; what a kludge!
- (save-buffer))
- (save-buffer)))))
+ (save-buffer))))
(defun calc-settings-file-name (name &optional arg)
(interactive