3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Colin Walters <walters@debian.org> |
;; Maintainers: D. Goel <deego@gnufans.org> |
7 |
|
;; Colin Walters <walters@debian.org> |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
268 |
|
|
269 |
;;; Mode commands. |
;;; Mode commands. |
270 |
|
|
271 |
(defun calc-save-modes (&optional quiet) |
(defun calc-save-modes () |
272 |
(interactive) |
(interactive) |
273 |
(calc-wrapper |
(calc-wrapper |
274 |
(let (pos |
(let (pos |
309 |
vals (cdr vals)))) |
vals (cdr vals)))) |
310 |
(run-hooks 'calc-mode-save-hook) |
(run-hooks 'calc-mode-save-hook) |
311 |
(insert ";;; End of mode settings\n") |
(insert ";;; End of mode settings\n") |
312 |
(if quiet |
(save-buffer)))) |
|
;; FIXME: why is this here? -cgw 2001.11.12 |
|
|
(let ((executing-kbd-macro "")) ; what a kludge! |
|
|
(save-buffer)) |
|
|
(save-buffer))))) |
|
313 |
|
|
314 |
(defun calc-settings-file-name (name &optional arg) |
(defun calc-settings-file-name (name &optional arg) |
315 |
(interactive |
(interactive |
459 |
(defun calc-symbolic-mode (n) |
(defun calc-symbolic-mode (n) |
460 |
(interactive "P") |
(interactive "P") |
461 |
(calc-wrapper |
(calc-wrapper |
462 |
|
|
463 |
(message (if (calc-change-mode 'calc-symbolic-mode n nil t) |
(message (if (calc-change-mode 'calc-symbolic-mode n nil t) |
464 |
"Inexact computations like sqrt(2) are deferred" |
"Inexact computations like sqrt(2) are deferred" |
465 |
"Numerical computations are always done immediately")))) |
"Numerical computations are always done immediately")))) |