import xemacs-21.2.37

[chise/xemacs-chise.git.1] / lisp / frame.el

diff --git a/lisp/frame.el b/lisp/frame.el
index 2e40d57..f13e517 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -502,14 +502,14 @@ This deletes all bindings in PLIST for `top', `left', `width',
 Emacs uses this to avoid overriding explicit moves and resizings from
 the user during startup."
   (setq plist (canonicalize-lax-plist (copy-sequence plist)))
-  (mapcar #'(lambda (propname)
-             (if (lax-plist-member plist propname)
+  (mapcar #'(lambda (property)
+             (if (lax-plist-member plist property)
                  (progn
                    (setq frame-initial-geometry-arguments
-                         (cons propname
-                               (cons (lax-plist-get plist propname)
+                         (cons property
+                               (cons (lax-plist-get plist property)
                                      frame-initial-geometry-arguments)))
-                   (setq plist (lax-plist-remprop plist propname)))))
+                   (setq plist (lax-plist-remprop plist property)))))
          '(height width top left user-size user-position))
   plist)
 
@@ -776,7 +776,7 @@ all frames that were visible, and iconify all frames that were not."
     (setq iconification-data (cdr iconification-data))))
 
 (defun suspend-or-iconify-emacs ()
-  "Call iconify-emacs if using a window system, otherwise call suspend-emacs."
+  "Call iconify-emacs if using a window system, otherwise suspend Emacs."
   (interactive)
   (cond ((device-on-window-system-p)
         (iconify-emacs))
@@ -1055,8 +1055,8 @@ prepended to the `default-frame-plist' when creating a frame for the
 first time.
 
 This function may be used as the value of `pre-display-buffer-function',
-to cause the display-buffer function and its callers to exhibit the above
-behavior."
+to cause the `display-buffer' function and its callers to exhibit the
+above behavior."
   (let ((frame (get-frame-for-buffer-noselect
                buffer not-this-window-p on-frame)))
     (if (not (eq frame (selected-frame)))
@@ -1104,7 +1104,7 @@ is first in the list.  VISIBLE-ONLY will only list non-iconified frames."
   :group 'frames)
 
 (defun show-temp-buffer-in-current-frame (buffer)
-  "For use as the value of temp-buffer-show-function:
+  "For use as the value of `temp-buffer-show-function':
 always displays the buffer in the selected frame, regardless of the behavior
 that would otherwise be introduced by the `pre-display-buffer-function', which
 is normally set to `get-frame-for-buffer' (which see)."