mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1992-07-15 02:24:58 +00:00
parent dc6d96816d
commit f98955eaaa
12 changed files with 40 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/calendar/holidays.el
View File

@ -71,7 +71,7 @@ The holidays are those in the list calendar-holidays."
(msg (format "%s: %s" date-string holiday-string)))
(if (not holiday-list)
(message "No holidays known for %s" date-string)
(if (<= (length msg) (screen-width))
(if (<= (length msg) (frame-width))
(message msg)
(set-buffer (get-buffer-create holiday-buffer))
(setq buffer-read-only nil)

2
lisp/comint.el
View File

@ -343,7 +343,7 @@ buffer. The hook comint-exec-hook is run after each exec."
(let ((process-environment
(comint-update-env process-environment
(list (format "TERMCAP=emacs:co#%d:tc=unknown"
(screen-width))
(frame-width))
"TERM=emacs"
"EMACS=t"))))
(apply 'start-process name buffer command switches)))

4
lisp/diary-lib.el
View File

@ -261,7 +261,7 @@ changing the variable `diary-include-string'."
(if (or (not diary-entries-list)
(and (not (cdr diary-entries-list))
(string-equal (car (cdr (car diary-entries-list))) "")))
(if (<= (length msg) (screen-width))
(if (<= (length msg) (frame-width))
(message msg)
(set-buffer (get-buffer-create holiday-buffer))
(setq buffer-read-only nil)
@ -295,7 +295,7 @@ This function is provided for optional use as the `list-diary-entries-hook'."
(msg (format "No diary entries for %s %s"
(concat date-string (if holiday-list ":" ""))
(mapconcat 'identity holiday-list "; "))))
(if (<= (length msg) (screen-width))
(if (<= (length msg) (frame-width))
(message msg)
(set-buffer (get-buffer-create holiday-buffer))
(setq buffer-read-only nil)

6
lisp/dired.el
View File

@ -1389,12 +1389,12 @@ Optional argument means return a file name relative to `default-directory'."
(cond ;; if split-window-threshold is enabled, use the largest window
((and (> (window-height (setq w2 (get-largest-window)))
split-height-threshold)
(= (screen-width) (window-width w2)))
(= (frame-width) (window-width w2)))
(setq window w2))
;; if the least-recently-used window is big enough, use it
((and (> (window-height (setq w2 (get-lru-window)))
(* 2 window-min-height))
(= (screen-width) (window-width w2)))
(= (frame-width) (window-width w2)))
(setq window w2)))
(save-excursion
(set-buffer buf)
@ -1402,7 +1402,7 @@ Optional argument means return a file name relative to `default-directory'."
(skip-chars-backward "\n\r\t ")
(setq target-lines (count-lines (point-min) (point))))
(if (<= (window-height window) (* 2 window-min-height))
;; At this point, every window on the screen is too small to split.
;; At this point, every window on the frame is too small to split.
(setq w2 (display-buffer buf))
(setq w2 (split-window window
(max window-min-height

2
lisp/electric.el
View File

@ -144,7 +144,7 @@
;; Switch to buffer in the current window.
;;
;; Then if max-height is nil, and not all of the lines in the buffer
;; are displayed, grab the whole screen.
;; are displayed, grab the whole frame.
;;
;; Returns selected window on buffer positioned at point-min.

6
lisp/emacs-lisp/edebug.el
View File

@ -1694,14 +1694,14 @@ Windows are handled a little differently under epoch.")
(defun edebug-current-window-configuration ()
"Return the current window or screen configuration."
"Return the current window or frame configuration."
(if edebug-epoch-running
(edebug-current-screen-configuration)
(current-window-configuration)))
(defun edebug-set-window-configuration (conf)
"Set the window or screen configuration to CONF."
"Set the window or frame configuration to CONF."
(if edebug-epoch-running
(edebug-set-screen-configuration conf)
(set-window-configuration conf)))
@ -1714,7 +1714,7 @@ Windows are handled a little differently under epoch.")
(defun edebug-pop-to-buffer (buffer)
"Like pop-to-buffer, but select a screen that buffer was shown in."
"Like pop-to-buffer, but select a frame that buffer was shown in."
(let ((edebug-window (edebug-get-buffer-window buffer)))
(if edebug-window
(select-window edebug-window)

4
lisp/emerge.el
View File

@ -400,7 +400,7 @@
; number of lines or characters by which the windows are scrolled.
; Otherwise, the amount of motion is computed based on the dimensions of
; the merge buffer window -- the height of the merge buffer window
; (minus next-screen-context-lines), or half the width of the merge
; (minus next-frame-context-lines), or half the width of the merge
; buffer window. (The A and B version windows are assumed to be as high
; as the merge window, but half as wide.) If the argument is just `C-u
; -', then the scrolling is half the default amount.
@ -2898,7 +2898,7 @@ SPC, it is ignored; if it is anything else, it is processed as a command."
(if (not (pos-visible-in-window-p))
(let ((echo-keystrokes 0))
(while (and (not (pos-visible-in-window-p))
(> (1- (screen-height)) (window-height)))
(> (1- (frame-height)) (window-height)))
(enlarge-window 1))
(let ((c (read-char)))
(if (/= c 32)

36
lisp/files.el
View File

@ -224,10 +224,10 @@ This is an interface to the function `load'."
(let ((pop-up-windows t))
(pop-to-buffer buffer t)))
(defun switch-to-buffer-other-screen (buffer)
"Switch to buffer BUFFER in another screen."
(interactive "BSwitch to buffer in other screen: ")
(let ((pop-up-screens t))
(defun switch-to-buffer-other-frame (buffer)
"Switch to buffer BUFFER in another frame."
(interactive "BSwitch to buffer in other frame: ")
(let ((pop-up-frames t))
(pop-to-buffer buffer)))
(defun find-file (filename)
@ -244,12 +244,12 @@ See the function `display-buffer'."
(interactive "FFind file in other window: ")
(switch-to-buffer-other-window (find-file-noselect filename)))
(defun find-file-other-screen (filename)
"Edit file FILENAME, in another screen.
May create a new screen, or reuse an existing one.
(defun find-file-other-frame (filename)
"Edit file FILENAME, in another frame.
May create a new frame, or reuse an existing one.
See the function `display-buffer'."
(interactive "FFind file in other screen: ")
(switch-to-buffer-other-screen (find-file-noselect filename)))
(interactive "FFind file in other frame: ")
(switch-to-buffer-other-frame (find-file-noselect filename)))
(defun find-file-read-only (filename)
"Edit file FILENAME but don't allow changes.
@ -267,12 +267,12 @@ Use \\[toggle-read-only] to permit editing."
(find-file filename)
(setq buffer-read-only t))
(defun find-file-read-only-other-screen (filename)
"Edit file FILENAME in another screen but don't allow changes.
Like \\[find-file-other-screen] but marks buffer as read-only.
(defun find-file-read-only-other-frame (filename)
"Edit file FILENAME in another frame but don't allow changes.
Like \\[find-file-other-frame] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing."
(interactive "fFind file read-only other screen: ")
(find-file-other-screen filename)
(interactive "fFind file read-only other frame: ")
(find-file-other-frame filename)
(setq buffer-read-only t))
(defun find-alternate-file (filename)
@ -1394,9 +1394,9 @@ With prefix arg, silently save all file-visiting buffers, then kill."
(define-key ctl-x-4-map "b" 'switch-to-buffer-other-window)
(define-key ctl-x-4-map "o" 'display-buffer)
(define-key ctl-x-5-map "b" 'switch-to-buffer-other-screen)
(define-key ctl-x-5-map "f" 'find-file-other-screen)
(define-key ctl-x-5-map "\C-f" 'find-file-other-screen)
(define-key ctl-x-5-map "r" 'find-file-read-only-other-screen)
(define-key ctl-x-5-map "b" 'switch-to-buffer-other-frame)
(define-key ctl-x-5-map "f" 'find-file-other-frame)
(define-key ctl-x-5-map "\C-f" 'find-file-other-frame)
(define-key ctl-x-5-map "r" 'find-file-read-only-other-frame)
;;; files.el ends here

10
lisp/isearch-old.el
View File

@ -166,7 +166,7 @@ is treated as a regexp. See \\[isearch-forward] for more info."
;; non-nil means an explicit uppercase letter seen in the input
(uppercase-flag nil)
;; Non-nil means start using a small window
;; if the search moves outside what is currently on the screen.
;; if the search moves outside what is currently on the frame.
(slow-terminal-mode (and (<= baud-rate search-slow-speed)
(> (window-height)
(* 4 search-slow-window-lines))))
@ -183,8 +183,8 @@ is treated as a regexp. See \\[isearch-forward] for more info."
;; for moving the cursor back on quitting.
(opoint (point))
(inhibit-quit t) ;Prevent ^G from quitting, so we can read it.
;; The screen we're working on; if this changes, we exit isearch.
(screen (if (fboundp 'selected-screen) (selected-screen))))
;; The frame we're working on; if this changes, we exit isearch.
(frame (if (fboundp 'selected-frame) (selected-frame))))
(isearch-push-state)
(save-window-excursion
@ -225,8 +225,8 @@ is treated as a regexp. See \\[isearch-forward] for more info."
(setq unread-command-char char)
(throw 'search-done t))
;; If the user switches to a different screen, exit.
((not (eq screen last-event-screen))
;; If the user switches to a different frame, exit.
((not (eq frame last-event-frame))
(setq unread-command-char char)
(throw 'search-done t))

2
lisp/progmodes/compile.el
View File

@ -289,7 +289,7 @@ means the default). The defaults for these variables are the global values of
(or (eq outwin (selected-window))
(set-window-point outwin (point-min)))
(and compilation-window-height
(= (window-width outwin) (screen-width))
(= (window-width outwin) (frame-width))
(let ((w (selected-window)))
(unwind-protect
(progn

4
lisp/progmodes/fortran.el
View File

@ -485,8 +485,8 @@ See also fortran-window-create-momentarily."
(condition-case error
(progn
(let ((window-min-width 2))
(if (< (window-width) (screen-width))
(enlarge-window-horizontally (- (screen-width)
(if (< (window-width) (frame-width))
(enlarge-window-horizontally (- (frame-width)
(window-width) 1)))
(split-window-horizontally 73)
(other-window 1)

2
lisp/textmodes/ispell4.el
View File

@ -416,7 +416,7 @@ With a prefix argument, resume handling of the previous Ispell command."
ret))
(defun ispell-show-choices (word message first-line)
;;if there is only one window on the screen, make the ispell
;;if there is only one window on the frame, make the ispell
;;messages winow be small. otherwise just use the other window
(let* ((selwin (selected-window))
(resize (eq selwin (next-window)))