Lines Matching +defs:local +defs:set +defs:key
34 ;; odd set of interactions is designed to make Calc's loading time
66 ;; Have "Z R" define a user command based on a set of rewrite rules.
152 ;; (I guess the key binding for a logistic curve would have to be `s'
202 ;; what may be useful set of confidence levels for different amounts of
235 :type '(alist :key-type (symbol :tag "Major mode")
258 :type '(alist :key-type (symbol :tag "Major mode")
277 :type '(alist :key-type (symbol :tag "Major mode")
297 :type '(alist :key-type (symbol :tag "Major mode")
330 :type '(alist :key-type (symbol :tag "Major mode")
350 :type '(alist :key-type (symbol :tag "Major mode")
382 :type '(alist :key-type (symbol :tag "Major mode")
446 (mapcar (function (lambda (v) (set (car v) (nth 1 v))))
456 (set-buffer (find-file-noselect file))
474 (mapcar (function (lambda (v) (set (car v) (nth 1 v))))
606 "Numeric prefix argument for the command that set `calc-language'.")
690 (defcalcmodevar calc-mode-save-mode 'local)
731 (defconst calc-local-var-list '(calc-stack
825 ;; If Calc files exist on the load-path, we're all set.
894 (defvar calc-executing-macro nil) ; Kbd macro executing from "K" key.
921 (mapcar (lambda (v) (or (boundp v) (set v nil)))
922 calc-local-var-list)
927 (define-key map "+" 'calc-plus)
928 (define-key map "-" 'calc-minus)
929 (define-key map "*" 'calc-times)
930 (define-key map "/" 'calc-divide)
931 (define-key map "%" 'calc-mod)
932 (define-key map "&" 'calc-inv)
933 (define-key map "^" 'calc-power)
934 (define-key map "\M-%" 'calc-percent)
935 (define-key map "e" 'calcDigit-start)
936 (define-key map "i" 'calc-info)
937 (define-key map "n" 'calc-change-sign)
938 (define-key map "q" 'calc-quit)
939 (define-key map "Y" 'nil)
940 (define-key map "Y?" 'calc-shift-Y-prefix-help)
941 (define-key map "?" 'calc-help)
942 (define-key map " " 'calc-enter)
943 (define-key map "'" 'calc-algebraic-entry)
944 (define-key map "$" 'calc-auto-algebraic-entry)
945 (define-key map "\"" 'calc-auto-algebraic-entry)
946 (define-key map "\t" 'calc-roll-down)
947 (define-key map "\M-\t" 'calc-roll-up)
948 (define-key map "\C-m" 'calc-enter)
949 (define-key map "\M-\C-m" 'calc-last-args-stub)
950 (define-key map "\C-j" 'calc-over)
952 (mapc (lambda (x) (define-key map (char-to-string x) 'undefined))
954 (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key))
957 (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-start))
966 (define-key map keys
978 (mapcar (lambda (x) (define-key map (char-to-string x) 'calcDigit-key))
980 (mapcar (lambda (x) (define-key map (char-to-string x) 'calcDigit-letter))
982 (define-key map "'" 'calcDigit-algebraic)
983 (define-key map "`" 'calcDigit-edit)
984 (define-key map "\C-g" 'abort-recursive-edit)
990 (define-key calc-digit-map x 'calcDigit-backspace)
991 (define-key calc-mode-map x 'calc-pop)
992 (define-key calc-mode-map
1013 (define-key map (char-to-string (car x)) (cdr x))
1016 (define-key map (char-to-string (- (car x) ?a -1)) (cdr x)))
1017 (define-key map (format "\e%c" (car x)) (cdr x)))
1092 calc-missing-key calc-mod calc-other-window calc-over calc-percent
1098 ;;;###autoload (define-key ctl-x-map "*" 'calc-dispatch)
1109 (eq (lookup-key calc-dispatch-map keys) 'calc-same-interface))
1112 (lookup-key calc-dispatch-map (substring keys 0 1))))
1113 (define-key calc-dispatch-map (substring keys 0 1) nil))
1114 (define-key calc-dispatch-map keys 'calc-same-interface)))
1120 (let ((key (calc-read-key-sequence
1124 (key-description (this-command-keys))))
1126 (setq key (lookup-key calc-dispatch-map key))
1128 (if key
1130 (or (commandp key) (require 'calc-ext))
1131 (call-interactively key))
1134 (defun calc-read-key-sequence (prompt map)
1135 (let ((prompt2 (format "%s " (key-description (this-command-keys))))
1137 (loc (current-local-map)))
1139 (let ((key (calc-read-key t)))
1140 (calc-unread-command (cdr key))
1144 (use-local-map nil)
1145 (read-key-sequence nil))
1147 (use-local-map loc)))))
1180 2 +/- 3 (p key) number with mean 2, standard deviation 3
1181 2 mod 3 (M key) number 2 computed modulo 3
1182 <1 jan 91> Date form (enter using ' key)
1189 (lambda (v) (set-default v (symbol-value v)))) calc-local-var-list)
1190 (kill-all-local-variables)
1191 (use-local-map (if (eq calc-algebraic-mode 'total)
1193 (mapcar (function (lambda (v) (make-local-variable v))) calc-local-var-list)
1194 (make-local-variable 'overlay-arrow-position)
1195 (make-local-variable 'overlay-arrow-string)
1221 (calc-set-mode-line)
1234 (set-buffer "*Calculator*")
1248 Calculator commands beginning with the `t' key are used to manipulate
1251 This buffer uses the same key map as the *Calculator* buffer; calculator
1255 (use-local-map calc-mode-map)
1260 (make-local-variable 'overlay-arrow-position)
1261 (make-local-variable 'overlay-arrow-string)
1263 (set (make-local-variable 'calc-main-buffer) buf))
1271 (set-buffer (get-buffer-create "*Calculator*"))
1279 (calc-set-language calc-language calc-language-option t)))
1294 (set-buffer (window-buffer (selected-window))))
1316 (set-window-buffer w (current-buffer))
1320 (set-buffer (calc-trail-buffer))
1370 (mapcar (function (lambda (v) (set-default v (symbol-value v))))
1371 calc-local-var-list)
1444 (use-local-map calc-alg-map))
1447 (calc-set-command-flag 'clear-message))
1496 (calc-set-mode-line)
1502 (defun calc-set-command-flag (f)
1509 (set-buffer calc-main-buffer)
1512 (set-buffer buf)
1532 (defun calc-set-mode-line ()
1616 ((eq calc-mode-save-mode 'local) "Local ")
1636 (set-buffer-modified-p (buffer-modified-p))
1647 (set-window-start win (point)))))
1678 (calc-set-command-flag 'renum-stack))))
1753 (calc-set-command-flag 'renum-stack))))))
1854 (if save-mark (set-mark save-mark))))
1857 (set-buffer (aref calc-embedded-info 1))
1877 (set-buffer calc-trail-buffer)
1883 (set-buffer calc-trail-buffer)
1902 (set-buffer buf)
1929 (set-window-buffer w calc-trail-buffer)))
1958 (set-marker calc-trail-pointer (point) (current-buffer))
1970 (set-window-start win (point))
1971 (set-window-point win (+ calc-trail-pointer 4))
1972 (set-buffer calc-main-buffer)
1989 (calc-set-command-flag 'undo))))
2112 (let ((old-esc (lookup-key global-map "\e")))
2115 (define-key global-map "\e" nil)
2117 (define-key global-map "\e" old-esc))))))
2136 (use-local-map minibuffer-local-map))
2139 (set-buffer calc-buffer)
2159 (defun calcDigit-key ()
3160 ;; The variables math-svo-c, math-svo-wid and math-svo-off are local
3553 (defun calc-read-key (&optional optkey)
3556 (let ((key (event-to-character event t t)))
3557 (or key optkey (error "Expected a plain keystroke"))
3558 (cons key event))))
3560 (let ((key (read-event)))
3561 (cons key key)))))