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 |
|
|
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)) |
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: " |
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 |
|
|