emacs: lisp/calc/calc-aent.el comparison

comparison lisp/calc/calc-aent.el @ 90573:858cb33ae39d

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 357-381) - Merge from gnus--rel--5.10 - Update from CVS - Merge from erc--emacs--21 * gnus--rel--5.10 (patch 116-122) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-98

author	Miles Bader <miles@gnu.org>
date	Thu, 03 Aug 2006 11:45:23 +0000
parents	c5406394f567 52f1e8d569ad
children	6588c6259dfb

comparison

equal deleted inserted replaced

-:ab9b8d043c39
+:858cb33ae39d
 ;; This file is autoloaded from calc.el.
 (require 'calc)
 (require 'calc-macs)
+(defvar calc-quick-calc-history nil
+"The history list for quick-calc.")
 (defun calc-do-quick-calc ()
+(require 'calc-ext)
 (calc-check-defines)
 (if (eq major-mode 'calc-mode)
 (calc-algebraic-entry t)
 (let (buf shortbuf)
 (save-excursion
 	       (calc-dollar-values calc-quick-prev-results)
 	       (calc-dollar-used 0)
 	       (enable-recursive-minibuffers t)
 	       (calc-language (if (memq calc-language '(nil big))
 				  'flat calc-language))
-	       (entry (calc-do-alg-entry "" "Quick calc: " t))
+	       (entry (calc-do-alg-entry "" "Quick calc: " t 'calc-quick-calc-history))
-	       (alg-exp (mapcar (function
+	       (alg-exp (mapcar 'math-evaluate-expr entry)))
-				 (lambda (x)
-				   (if (and (not (featurep 'calc-ext))
-					    calc-previous-alg-entry
-					    (string-match
-					     "\\`[-0-9._+*/^() ]+\\'"
-					     calc-previous-alg-entry))
-				       (calc-normalize x)
-				     (require 'calc-ext)
-				     (math-evaluate-expr x))))
-				entry)))
 	  (when (and (= (length alg-exp) 1)
 		     (eq (car-safe (car alg-exp)) 'calcFunc-assign)
 		     (= (length (car alg-exp)) 3)
 		     (eq (car-safe (nth 1 (car alg-exp))) 'var))
-	    (require 'calc-ext)
 	    (set (nth 2 (nth 1 (car alg-exp))) (nth 2 (car alg-exp)))
 	    (calc-refresh-evaltos (nth 2 (nth 1 (car alg-exp))))
 	    (setq alg-exp (list (nth 2 (car alg-exp)))))
 	  (setq calc-quick-prev-results alg-exp
 		buf (mapconcat (function (lambda (x)
 (calc-wrapper
 (let ((calc-language (if prefix nil calc-language))
 	 (math-expr-opers (if prefix math-standard-opers math-expr-opers)))
 (calc-alg-entry (and auto (char-to-string last-command-char))))))
+(defvar calc-alg-entry-history nil
+"History for algebraic entry.")
 (defun calc-alg-entry (&optional initial prompt)
 (let* ((sel-mode nil)
 	 (calc-dollar-values (mapcar 'calc-get-stack-element
 				     (nthcdr calc-stack-top calc-stack)))
 	 (calc-dollar-used 0)
 	 (calc-plain-entry t)
-	 (alg-exp (calc-do-alg-entry initial prompt t)))
+	 (alg-exp (calc-do-alg-entry initial prompt t 'calc-alg-entry-history)))
 (if (stringp alg-exp)
 	(progn
 	  (require 'calc-ext)
 	  (calc-alg-edit alg-exp))
 (let* ((calc-simplify-mode (if (eq last-command-char ?\C-j)
 (defvar calc-alg-ent-esc-map nil
 "The keymap used for escapes in algebraic entry.")
 (defvar calc-alg-exp)
-(defun calc-do-alg-entry (&optional initial prompt no-normalize)
+(defun calc-do-alg-entry (&optional initial prompt no-normalize history)
 (let* ((calc-buffer (current-buffer))
 	 (blink-paren-function 'calcAlg-blink-matching-open)
 	 (calc-alg-exp 'error))
 (unless calc-alg-ent-map
 (setq calc-alg-ent-map (copy-keymap minibuffer-local-map))
 (aset (nth 1 calc-alg-ent-esc-map) i 'calcAlg-escape)
 (setq i (1+ i)))))
 (define-key calc-alg-ent-map "\e" nil)
 (if (eq calc-algebraic-mode 'total)
 	(define-key calc-alg-ent-map "\e" calc-alg-ent-esc-map)
-(define-key calc-alg-ent-map "\ep" 'calcAlg-plus-minus)
+(define-key calc-alg-ent-map "\e+" 'calcAlg-plus-minus)
 (define-key calc-alg-ent-map "\em" 'calcAlg-mod)
 (define-key calc-alg-ent-map "\e=" 'calcAlg-equals)
 (define-key calc-alg-ent-map "\e\r" 'calcAlg-equals)
+(define-key calc-alg-ent-map "\ep" 'previous-history-element)
+(define-key calc-alg-ent-map "\en" 'next-history-element)
 (define-key calc-alg-ent-map "\e%" 'self-insert-command))
 (setq calc-aborted-prefix nil)
 (let ((buf (read-from-minibuffer (or prompt "Algebraic: ")
 				     (or initial "")
-				     calc-alg-ent-map nil)))
+				     calc-alg-ent-map nil history)))
 (when (eq calc-alg-exp 'error)
 	(when (eq (car-safe (setq calc-alg-exp (math-read-exprs buf))) 'error)
 	  (setq calc-alg-exp nil)))
 (setq calc-aborted-prefix "alg'")
 (or no-normalize
 (insert "mod ")))
 (defun calcAlg-previous ()
 (interactive)
 (if (calc-minibuffer-contains "\\'")
-(if calc-previous-alg-entry
+(previous-history-element 1)
-	  (insert calc-previous-alg-entry)
-	(beep))
 (insert "'")))
 (defun calcAlg-equals ()
 (interactive)
 (unwind-protect
 (if (or (not calc-plain-entry)
 	  (calc-minibuffer-contains
 	   "\\`\\([^\"]*\"[^\"]*\"\\)*[^\"]*\"[^\"]*\\'"))
 (insert "`")
 (setq calc-alg-exp (minibuffer-contents))
-(and (> (length calc-alg-exp) 0) (setq calc-previous-alg-entry calc-alg-exp))
 (exit-minibuffer)))
 (defvar calc-buffer)
 (defun calcAlg-enter ()
 	   (concat " [" (or (nth 2 exp) "Error") "]"))
 	  (calc-clear-unread-commands))
 (setq calc-alg-exp (if (calc-minibuffer-contains "\\` *\\[ *\\'")
 			'((incomplete vec))
 		      exp))
-(and (> (length str) 0) (setq calc-previous-alg-entry str))
 (exit-minibuffer))))
 (defun calcAlg-blink-matching-open ()
 (let ((rightpt (point))
 	(leftpt nil)

Mercurial > emacs

comparison lisp/calc/calc-aent.el @ 90573:858cb33ae39d