668 |
;; don't change this since it is a customization variable, |
;; don't change this since it is a customization variable, |
669 |
;; its set function will add any new operators |
;; its set function will add any new operators |
670 |
(calculator-add-operators calculator-user-operators))) |
(calculator-add-operators calculator-user-operators))) |
671 |
|
(setq calculator-buffer (get-buffer-create "*calculator*")) |
672 |
(if calculator-electric-mode |
(if calculator-electric-mode |
673 |
(save-window-excursion |
(save-window-excursion |
674 |
(progn (require 'electric) (message nil)) ; hide load message |
(progn (require 'electric) (message nil)) ; hide load message |
675 |
(let (old-g-map old-l-map (echo-keystrokes 0) |
(let (old-g-map old-l-map (echo-keystrokes 0) |
676 |
(garbage-collection-messages nil)) ; no gc msg when electric |
(garbage-collection-messages nil)) ; no gc msg when electric |
677 |
;; strange behavior in FSF: doesn't always select correct |
(set-window-buffer (minibuffer-window) calculator-buffer) |
|
;; minibuffer. I have no idea how to fix this |
|
|
(setq calculator-buffer (window-buffer (minibuffer-window))) |
|
678 |
(select-window (minibuffer-window)) |
(select-window (minibuffer-window)) |
679 |
(calculator-reset) |
(calculator-reset) |
680 |
(calculator-update-display) |
(calculator-update-display) |
696 |
(use-local-map old-l-map) |
(use-local-map old-l-map) |
697 |
(use-global-map old-g-map)))) |
(use-global-map old-g-map)))) |
698 |
(progn |
(progn |
|
(setq calculator-buffer (get-buffer-create "*calculator*")) |
|
699 |
(cond |
(cond |
700 |
((not (get-buffer-window calculator-buffer)) |
((not (get-buffer-window calculator-buffer)) |
701 |
(let ((split-window-keep-point nil) |
(let ((split-window-keep-point nil) |