diff lisp/calc/calc.el @ 40999:d5ccdce87268

Use `frame-width' instead of `screen-width', `frame-height' instead of `screen-height', and, `executing-kbd-macro' instead of `executing-macro'. (calc-unread-command): Use `unread-command-events'.

--- a/lisp/calc/calc.el	Tue Nov 13 07:30:58 2001 +0000
+++ b/lisp/calc/calc.el	Tue Nov 13 07:31:54 2001 +0000
@@ -1,5 +1,5 @@
 ;; Calculator for GNU Emacs, part I
-;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
 ;; Written by Dave Gillespie, [e-mail].
 
 ;; This file is part of GNU Emacs.
@@ -1178,7 +1178,7 @@
 	(save-excursion
 	  (set-buffer (calc-trail-buffer))
 	  (and calc-display-trail
-	       (= (window-width) (screen-width))
+	       (= (window-width) (frame-width))
 	       (calc-trail-display 1 t)))
 	(message "Welcome to the GNU Emacs Calculator!  Press `?' or `h' for help, `q' to quit.")
 	(run-hooks 'calc-start-hook)
@@ -1243,8 +1243,8 @@
 	      (kbuf (get-buffer "*Calc Keypad*")))
 	  (delete-windows-on (calc-trail-buffer))
 	  (if (and win
-		   (< (window-height win) (1- (screen-height)))
-		   (= (window-width win) (screen-width))  ; avoid calc-keypad
+		   (< (window-height win) (1- (frame-height)))
+		   (= (window-width win) (frame-width))  ; avoid calc-keypad
 		   (not (get-buffer-window "*Calc Keypad*")))
 	      (setq calc-window-height (- (window-height win) 2)))
 	  (if calc-was-split
@@ -3139,7 +3139,7 @@
 (defun calc-window-width ()
   (if calc-embedded-info
       (let ((win (get-buffer-window (aref calc-embedded-info 0))))
-	(1- (if win (window-width win) (screen-width))))
+	(1- (if win (window-width win) (frame-width))))
     (- (window-width (get-buffer-window (current-buffer)))
        (if calc-line-numbering 5 1)))
 )
@@ -3528,22 +3528,16 @@
 )
 
 (defun calc-unread-command (&optional input)
-  (cond (calc-emacs-type-gnu19
-	 (setq unread-command-events (cons (or input last-command-event)
-					   unread-command-events)))
-	(calc-emacs-type-lucid
-	 (setq unread-command-event
-	       (if (integerp input) (character-to-event input)
-		 (or input last-command-event))))
-	(t
-	 (setq unread-command-char (or input last-command-char))))
-)
+  (if (featurep 'xemacs)
+      (setq unread-command-event
+	    (if (integerp input) (character-to-event input)
+	      (or input last-command-event)))
+    (push (or input last-command-event) unread-command-events)))
 
 (defun calc-clear-unread-commands ()
-  (cond (calc-emacs-type-gnu19 (setq unread-command-events nil))
+  (if (featurep 'xemacs) 
 	(calc-emacs-type-lucid (setq unread-command-event nil))
-	(t (setq unread-command-char -1)))
-)
+    (setq unread-command-events nil)))
 
 (if calc-always-load-extensions
     (progn