[Emacs-diffs] Changes to emacs/lisp/frame.el

[Stefan Monnier]

Index: emacs/lisp/frame.el
diff -c emacs/lisp/frame.el:1.200 emacs/lisp/frame.el:1.201
*** emacs/lisp/frame.el:1.200   Thu Apr 10 12:30:06 2003
--- emacs/lisp/frame.el Sat May 24 12:11:17 2003
***************
*** 686,691 ****
--- 686,698 ----
        (setq arg (1+ arg)))
      (select-frame-set-input-focus frame)))
  
+ (defun iconify-or-deiconify-frame ()
+   "Iconify the selected frame, or deiconify if it's currently an icon."
+   (interactive)
+   (if (eq (cdr (assq 'visibility (frame-parameters))) t)
+       (iconify-frame)
+     (make-frame-visible)))
+ 
  (defun make-frame-names-alist ()
    (let* ((current-frame (selected-frame))
         (falist