Mercurial > emacs

changeset 40909:09249b7679f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toplevel): Require calc-macs during compilation. (calc-do-quick-calc): Use `frame-width' instead of `screen-width'. (calcAlg-edit): Use `minibuffer-contents' instead of `buffer-string'. (calcAlg-enter): Likewise. (calcAlg-enter): Use `minibuffer-prompt-end' instead of `point-min'.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 11 Nov 2001 10:26:44 +0000
parents d277eddc41c4
children c07c0f7a2c8e
files lisp/calc/calc-aent.el
diffstat 1 files changed, 8 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-aent.el	Sun Nov 11 10:25:50 2001 +0000
+++ b/lisp/calc/calc-aent.el	Sun Nov 11 10:26:44 2001 +0000
@@ -25,6 +25,7 @@
 (require 'calc)
 
 (require 'calc-macs)
+(eval-when-compile '(require calc-macs))
 
 (defun calc-Need-calc-aent () nil)
 
@@ -85,11 +86,11 @@
 				    (format ", \"%c\"" (car alg-exp))
 				  "")
 				")")))
-	  (if (and (< (length buf) (screen-width)) (= (length entry) 1)
+	  (if (and (< (length buf) (frame-width)) (= (length entry) 1)
 		   calc-extensions-loaded)
 	      (let ((long (concat (math-format-value (car entry) 1000)
 				  " =>  " buf)))
-		(if (<= (length long) (- (screen-width) 8))
+		(if (<= (length long) (- (frame-width) 8))
 		    (setq buf long))))
 	  (calc-handle-whys)
 	  (message "Result: %s" buf)))
@@ -385,7 +386,7 @@
 	  (calc-minibuffer-contains
 	   "\\`\\([^\"]*\"[^\"]*\"\\)*[^\"]*\"[^\"]*\\'"))
       (insert "`")
-    (setq alg-exp (buffer-string))
+    (setq alg-exp (minibuffer-contents))
     (and (> (length alg-exp) 0) (setq calc-previous-alg-entry alg-exp))
     (exit-minibuffer))
 )
@@ -393,14 +394,14 @@
 
 (defun calcAlg-enter ()
   (interactive)
-  (let* ((str (buffer-string))
+  (let* ((str (minibuffer-contents))
 	 (exp (and (> (length str) 0)
 		   (save-excursion
 		     (set-buffer calc-buffer)
 		     (math-read-exprs str)))))
     (if (eq (car-safe exp) 'error)
 	(progn
-	  (goto-char (point-min))
+	  (goto-char (minibuffer-prompt-end))
 	  (forward-char (nth 1 exp))
 	  (beep)
 	  (calc-temp-minibuffer-message
@@ -455,14 +456,14 @@
   (interactive)
   (if (calc-minibuffer-contains ".*[@oh] *[^'m ]+[^'m]*\\'")
       (calcDigit-key)
-    (setq calc-digit-value (buffer-string))
+    (setq calc-digit-value (minibuffer-contents))
     (exit-minibuffer))
 )
 
 (defun calcDigit-edit ()
   (interactive)
   (calc-unread-command)
-  (setq calc-digit-value (buffer-string))
+  (setq calc-digit-value (minibuffer-contents))
   (exit-minibuffer)
 )