Mercurial > emacs
comparison lisp/calc/calc-mode.el @ 47696:6e1c8f17ab33
(calc-save-modes): Remove `quiet' arg; Don't bind `executing-kbd-macro'.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Mon, 30 Sep 2002 04:25:15 +0000 |
| parents | ca690490ae62 |
| children | f4d68f97221e |
comparison
equal
deleted
inserted
replaced
| 47695:37adf7fffb23 | 47696:6e1c8f17ab33 |
|---|---|
| 265 | 265 |
| 266 | 266 |
| 267 | 267 |
| 268 ;;; Mode commands. | 268 ;;; Mode commands. |
| 269 | 269 |
| 270 (defun calc-save-modes (&optional quiet) | 270 (defun calc-save-modes () |
| 271 (interactive) | 271 (interactive) |
| 272 (calc-wrapper | 272 (calc-wrapper |
| 273 (let (pos | 273 (let (pos |
| 274 (vals (mapcar (function (lambda (v) (symbol-value (car v)))) | 274 (vals (mapcar (function (lambda (v) (symbol-value (car v)))) |
| 275 calc-mode-var-list))) | 275 calc-mode-var-list))) |
| 306 (insert (prin1-to-string val) ")\n")))) | 306 (insert (prin1-to-string val) ")\n")))) |
| 307 (setq list (cdr list) | 307 (setq list (cdr list) |
| 308 vals (cdr vals)))) | 308 vals (cdr vals)))) |
| 309 (run-hooks 'calc-mode-save-hook) | 309 (run-hooks 'calc-mode-save-hook) |
| 310 (insert ";;; End of mode settings\n") | 310 (insert ";;; End of mode settings\n") |
| 311 (if quiet | 311 (save-buffer)))) |
| 312 ;; FIXME: why is this here? -cgw 2001.11.12 | |
| 313 (let ((executing-kbd-macro "")) ; what a kludge! | |
| 314 (save-buffer)) | |
| 315 (save-buffer))))) | |
| 316 | 312 |
| 317 (defun calc-settings-file-name (name &optional arg) | 313 (defun calc-settings-file-name (name &optional arg) |
| 318 (interactive | 314 (interactive |
| 319 (list (read-file-name (format "Settings file name (normally %s): " | 315 (list (read-file-name (format "Settings file name (normally %s): " |
| 320 (abbreviate-file-name (or user-init-file | 316 (abbreviate-file-name (or user-init-file |