/[emacs]/emacs/lisp/calc/calc-mode.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by walters, Mon Nov 19 07:37:04 2001 UTC revision 1.4.4.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 3  Line 3 
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    
# Line 267  Line 268 
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
# Line 308  Line 309 
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
# Line 462  Line 459 
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"))))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26