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

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

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

revision 1.11 by jpb, Tue Oct 19 15:34:38 2004 UTC revision 1.12 by jpb, Thu Oct 21 19:20:11 2004 UTC
# Line 295  Line 295 
295                  calc-dollar-used 0)))                  calc-dollar-used 0)))
296        (calc-handle-whys))))        (calc-handle-whys))))
297    
298    (defvar calc-alg-ent-map nil
299      "The keymap used for algebraic entry.")
300    
301    (defvar calc-alg-ent-esc-map nil
302      "The keymap used for escapes in algebraic entry.")
303    
304  (defun calc-do-alg-entry (&optional initial prompt no-normalize)  (defun calc-do-alg-entry (&optional initial prompt no-normalize)
305    (let* ((calc-buffer (current-buffer))    (let* ((calc-buffer (current-buffer))
306           (blink-paren-function 'calcAlg-blink-matching-open)           (blink-paren-function 'calcAlg-blink-matching-open)
307           (alg-exp 'error))           (alg-exp 'error))
308      (unless (boundp 'calc-alg-ent-map)      (unless calc-alg-ent-map
309        (setq calc-alg-ent-map (copy-keymap minibuffer-local-map))        (setq calc-alg-ent-map (copy-keymap minibuffer-local-map))
310        (define-key calc-alg-ent-map "'" 'calcAlg-previous)        (define-key calc-alg-ent-map "'" 'calcAlg-previous)
311        (define-key calc-alg-ent-map "`" 'calcAlg-edit)        (define-key calc-alg-ent-map "`" 'calcAlg-edit)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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