mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(calculator): Don't use the minibuffer even in electric mode; use a private

Browse Source 
buffer and display it in the minibuffer window using `set-window-buffer'.
This commit is contained in:
Juanma Barranquero 2003-02-03 16:31:35 +00:00
parent 500ae43022
commit cc234da905
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2003-02-03 Juanma Barranquero <lektu@terra.es>
* calculator.el (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'.
2003-02-03 Dave Love <fx@gnu.org>
* emacs-lisp/benchmark.el: New.
@ -122,8 +128,6 @@
* antlr-mode.el (antlr): Moved to SourceForge.net
Changes from 2002-02-28:
* antlr-mode.el: Minor bug fixes: insert options and indentation.
(antlr-option-location): Don't use point as position where to
insert options if point is in comment.

6
lisp/calculator.el
View File

@ -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)