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

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

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

revision 1.4 by walters, Mon Nov 19 07:37:27 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 820  Line 821 
821  (defun calc-macro-edit-variable (&optional no-cmd)  (defun calc-macro-edit-variable (&optional no-cmd)
822    (let ((str "") ch)    (let ((str "") ch)
823      (or no-cmd (insert (symbol-name key-symbol) "\n"))      (or no-cmd (insert (symbol-name key-symbol) "\n"))
824      (if (memq (MacEdit-peek-char) '(?\+ ?\- ?\* ?\/ ?\^ ?\|))      (if (memq (MacEdit-peek-char) '(?\+ ?\- ?\* ?\/ ?^ ?\|))
825          (setq str (char-to-string (MacEdit-read-char))))          (setq str (char-to-string (MacEdit-read-char))))
826      (if (and (setq ch (MacEdit-peek-char))      (if (and (setq ch (MacEdit-peek-char))
827               (>= ch ?0) (<= ch ?9))               (>= ch ?0) (<= ch ?9))
# Line 929  Line 930 
930            (def (or (assq key (calc-user-key-map))            (def (or (assq key (calc-user-key-map))
931                     (assq (upcase key) (calc-user-key-map))                     (assq (upcase key) (calc-user-key-map))
932                     (assq (downcase key) (calc-user-key-map))                     (assq (downcase key) (calc-user-key-map))
933                     (and (eq key ?\')                     (and (eq key ?\')
934                          (cons nil                          (cons nil
935                                (intern (completing-read                                (intern (completing-read
936                                         (format "Record in %s the function: "                                         (format "Record in %s the function: "
# Line 1344  Line 1345 
1345  (defun calc-kbd-report (msg)  (defun calc-kbd-report (msg)
1346    (interactive "sMessage: ")    (interactive "sMessage: ")
1347    (calc-wrapper    (calc-wrapper
1348     (let ((executing-kbd-macro nil)     (math-working msg (calc-top-n 1))))
          (defining-kbd-macro nil))  
      (math-working msg (calc-top-n 1)))))  
1349    
1350  (defun calc-kbd-query (msg)  (defun calc-kbd-query (msg)
1351    (interactive "sPrompt: ")    (interactive "sPrompt: ")
1352    (calc-wrapper    (calc-wrapper
1353     (let ((executing-kbd-macro nil)     (calc-alg-entry nil (and (not (equal msg "")) msg))))
          (defining-kbd-macro nil))  
      (calc-alg-entry nil (and (not (equal msg "")) msg)))))  
   
   
   
   
   
   
1354    
1355  ;;;; Logical operations.  ;;;; Logical operations.
1356    

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