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

[Miles Bader]

Index: emacs/lisp/frame.el
diff -c emacs/lisp/frame.el:1.201 emacs/lisp/frame.el:1.202
*** emacs/lisp/frame.el:1.201   Sat May 24 12:11:17 2003
--- emacs/lisp/frame.el Thu Jun  5 21:32:03 2003
***************
*** 1,6 ****
  ;;; frame.el --- multi-frame management independent of window systems
  
! ;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001
  ;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; frame.el --- multi-frame management independent of window systems
  
! ;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003
  ;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
***************
*** 816,822 ****
                         (mapcar #'list
                                 ;; x-list-fonts will fail with an error
                                 ;; if this frame doesn't support fonts.
!                                (x-list-fonts "*" nil (selected-frame))))))
       (list font current-prefix-arg)))
    (let (fht fwd)
      (if keep-size
--- 816,824 ----
                         (mapcar #'list
                                 ;; x-list-fonts will fail with an error
                                 ;; if this frame doesn't support fonts.
!                                (x-list-fonts "*" nil (selected-frame)))
!                        nil nil nil nil
!                        (frame-parameter nil 'font))))
       (list font current-prefix-arg)))
    (let (fht fwd)
      (if keep-size