mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 19:30:38 -08:00
Code Issues Projects Releases Wiki Activity

Fix typos.

Browse source
This commit is contained in:
Karl Heuer 1995-01-26 22:52:10 +00:00
parent b64548c785
commit 85557d7ef7
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/frame.el
View file

@ -43,7 +43,7 @@ a minibuffer frame on your own, one is created according to
You can specify geometry-related options for just the initial frame You can specify geometry-related options for just the initial frame
by setting this variable in your `.emacs' file; however, they won't by setting this variable in your `.emacs' file; however, they won't
take affect until Emacs reads `.emacs', which happens after first creating take effect until Emacs reads `.emacs', which happens after first creating
the frame. If you want the frame to have the proper geometry as soon the frame. If you want the frame to have the proper geometry as soon
as it appears, you need to use this three-step process: as it appears, you need to use this three-step process:
* Specify X resources to give the geometry you want. * Specify X resources to give the geometry you want.
@ -71,7 +71,7 @@ These supersede the values given in `default-frame-alist'.")
(function (lambda () (function (lambda ()
(make-frame pop-up-frame-alist)))) (make-frame pop-up-frame-alist))))
(defvar special-display-frame-alist (defvar special-display-frame-alist
'((height . 14) (width . 80) (unsplittable . t)) '((height . 14) (width . 80) (unsplittable . t))
"*Alist of frame parameters used when creating special frames. "*Alist of frame parameters used when creating special frames.
Special frames are used for buffers whose names are in Special frames are used for buffers whose names are in
@ -85,7 +85,7 @@ These supersede the values given in `default-frame-alist'.")
;; Return the window chosen. ;; Return the window chosen.
;; Currently we do not insist on selecting the window within its frame. ;; Currently we do not insist on selecting the window within its frame.
;; If ARGS is an alist, use it as a list of frame parameter specs. ;; If ARGS is an alist, use it as a list of frame parameter specs.
;; If ARGS is a list whose car is a symbol. ;; If ARGS is a list whose car is a symbol,
;; use (car ARGS) as a function to do the work. ;; use (car ARGS) as a function to do the work.
;; Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args. ;; Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args.
(defun special-display-popup-frame (buffer &optional args) (defun special-display-popup-frame (buffer &optional args)
@ -124,13 +124,13 @@ These supersede the values given in `default-frame-alist'.")
;;; 1) Load the window system startup file from the lisp library and read the ;;; 1) Load the window system startup file from the lisp library and read the
;;; high-priority arguments (-q and the like). The window system startup ;;; high-priority arguments (-q and the like). The window system startup
;;; file should create any frames specified in the window system defaults. ;;; file should create any frames specified in the window system defaults.
;;; ;;;
;;; 2) If no frames have been opened, we open an initial text frame. ;;; 2) If no frames have been opened, we open an initial text frame.
;;; ;;;
;;; 3) Once the init file is done, we apply any newly set parameters ;;; 3) Once the init file is done, we apply any newly set parameters
;;; in initial-frame-alist to the frame. ;;; in initial-frame-alist to the frame.
;; These are now called explicitly at the proper times, ;; These are now called explicitly at the proper times,
;; since that is easier to understand. ;; since that is easier to understand.
;; Actually using hooks within Emacs is bad for future maintenance. --rms. ;; Actually using hooks within Emacs is bad for future maintenance. --rms.
;; (add-hook 'before-init-hook 'frame-initialize) ;; (add-hook 'before-init-hook 'frame-initialize)
@ -148,7 +148,7 @@ These supersede the values given in `default-frame-alist'.")
;;; file - if there is no frame with a minibuffer open now, create ;;; file - if there is no frame with a minibuffer open now, create
;;; one to display messages while loading the init file. ;;; one to display messages while loading the init file.
(defun frame-initialize () (defun frame-initialize ()
;; Are we actually running under a window system at all? ;; Are we actually running under a window system at all?
(if (and window-system (not noninteractive)) (if (and window-system (not noninteractive))
(progn (progn
@ -182,18 +182,18 @@ These supersede the values given in `default-frame-alist'.")
;; because that would override explicit user resizing. ;; because that would override explicit user resizing.
(setq initial-frame-alist (setq initial-frame-alist
(frame-remove-geometry-params initial-frame-alist)))) (frame-remove-geometry-params initial-frame-alist))))
;; At this point, we know that we have a frame open, so we ;; At this point, we know that we have a frame open, so we
;; can delete the terminal frame. ;; can delete the terminal frame.
(delete-frame terminal-frame) (delete-frame terminal-frame)
(setq terminal-frame nil)) (setq terminal-frame nil))
;; No, we're not running a window system. Arrange to cause errors. ;; No, we're not running a window system. Arrange to cause errors.
(setq frame-creation-function (setq frame-creation-function
(function (function
(lambda (parameters) (lambda (parameters)
(error (error
"Can't create multiple frames without a window system")))))) "Can't create multiple frames without a window system"))))))
;;; startup.el calls this function after loading the user's init ;;; startup.el calls this function after loading the user's init
;;; file. Now default-frame-alist and initial-frame-alist contain ;;; file. Now default-frame-alist and initial-frame-alist contain
;;; information to which we must react; do what needs to be done. ;;; information to which we must react; do what needs to be done.
@ -527,7 +527,7 @@ is given and non-nil, the unwanted frames are iconified instead."
(progn (progn
(modify-frame-parameters (modify-frame-parameters
frame frame
;; Since we can't set a frame's minibuffer status, ;; Since we can't set a frame's minibuffer status,
;; we might as well omit the parameter altogether. ;; we might as well omit the parameter altogether.
(let* ((parms (nth 1 parameters)) (let* ((parms (nth 1 parameters))
(mini (assq 'minibuffer parms))) (mini (assq 'minibuffer parms)))