diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-03 16:31:35 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-03 16:31:35 +0000 |
| commit | cc234da90529fa69464d04998ded540502c8f73b (patch) | |
| tree | 523c85da3bb700813383f8475dcfe4c708a8803b /lisp/calculator.el | |
| parent | 500ae430226617718993d117121e013289327900 (diff) | |
| download | emacs-cc234da90529fa69464d04998ded540502c8f73b.tar.gz | |
(calculator): Don't use the minibuffer even in electric mode; use a private
buffer and display it in the minibuffer window using `set-window-buffer'.
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index 0aca51b2a46..64f6ea8af1b 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -668,14 +668,13 @@ See the documentation for `calculator-mode' for more information." ;; don't change this since it is a customization variable, ;; its set function will add any new operators (calculator-add-operators calculator-user-operators))) + (setq calculator-buffer (get-buffer-create "*calculator*")) (if calculator-electric-mode (save-window-excursion (progn (require 'electric) (message nil)) ; hide load message (let (old-g-map old-l-map (echo-keystrokes 0) (garbage-collection-messages nil)) ; no gc msg when electric - ;; strange behavior in FSF: doesn't always select correct - ;; minibuffer. I have no idea how to fix this - (setq calculator-buffer (window-buffer (minibuffer-window))) + (set-window-buffer (minibuffer-window) calculator-buffer) (select-window (minibuffer-window)) (calculator-reset) (calculator-update-display) @@ -697,7 +696,6 @@ See the documentation for `calculator-mode' for more information." (use-local-map old-l-map) (use-global-map old-g-map)))) (progn - (setq calculator-buffer (get-buffer-create "*calculator*")) (cond ((not (get-buffer-window calculator-buffer)) (let ((split-window-keep-point nil) |