(timezone-parse-date): Match forms 1 and 2 first.

[gnu-emacs] / lisp / frame.el

diff --git a/lisp/frame.el b/lisp/frame.el
index dca7f8167770bce9e8c98a3d338ed68a224032e2..b08fdc2c4b5b43b85435a5dcc8b1ddfa9421a626 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -458,7 +458,6 @@ on `after-make-frame-functions' are run with one arg, the newly created frame."
   (interactive)
   (run-hooks 'before-make-frame-hook)
   (let ((frame (funcall frame-creation-function parameters)))
-    (custom-initialize-frame frame)
     (run-hook-with-args 'after-make-frame-functions frame)
     frame))
 
@@ -578,6 +577,11 @@ is given and non-nil, the unwanted frames are iconified instead."
 ;;;; Convenience functions for accessing and interactively changing
 ;;;; frame parameters.
 
+(defun frame-parameter (frame parameter)
+  "Return FRAME's value for parameter PARAMETER.
+If FRAME is omitted, describe the currently selected frame."
+  (cdr (assq parameter (frame-parameters frame))))
+
 (defun frame-height (&optional frame)
   "Return number of lines available for display on FRAME.
 If FRAME is omitted, describe the currently selected frame."