/[emacs]/emacs/lisp/calculator.el
ViewVC logotype

Diff of /emacs/lisp/calculator.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by pj, Sun Feb 3 13:43:37 2002 UTC revision 1.12.4.1 by miles, Fri Apr 4 06:20:00 2003 UTC
# Line 668  See the documentation for `calculator-mo Line 668  See the documentation for `calculator-mo
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)
# Line 697  See the documentation for `calculator-mo Line 696  See the documentation for `calculator-mo
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)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.12.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26