bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: describe-key gives error on frames entries.


From: Dave Love
Subject: Re: describe-key gives error on frames entries.
Date: 08 Feb 2001 16:29:14 +0000
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.0.98

I guess this fragment of changes queued for after 21.1 fixes it.

Index: menu-bar.el
===================================================================
RCS file: /cvs/emacs/lisp/menu-bar.el,v
retrieving revision 1.169
diff -u -p -c -r1.169 menu-bar.el
cvs server: conflicting specifications of output style
*** menu-bar.el 2001/01/29 14:57:17     1.169
--- menu-bar.el 2001/02/08 16:25:14
*************** key (or menu-item)"))
*** 992,1000 ****
  
  (defun menu-bar-select-frame ()
    (interactive)
!   (make-frame-visible last-command-event)
!   (raise-frame last-command-event)
!   (select-frame last-command-event))
  
  (defun menu-bar-update-buffers-1 (elt)
    (cons (format
--- 1027,1039 ----
  
  (defun menu-bar-select-frame ()
    (interactive)
!   (let (frame)
!     (dolist (f (frame-list))
!       (when (equal last-command-event (frame-parameter f 'name))
!       (setq frame f)))
!   (make-frame-visible frame)
!   (raise-frame frame)
!   (select-frame frame)))
  
  (defun menu-bar-update-buffers-1 (elt)
    (cons (format
*************** key (or menu-item)"))
*** 1122,1128 ****
                                (mapcar
                                 (lambda (frame)
                                   (nconc
!                                   (list frame
                                          (frame-parameter frame 'name)
                                          (cons nil nil))
                                          'menu-bar-select-frame))
--- 1161,1167 ----
                                (mapcar
                                 (lambda (frame)
                                   (nconc
!                                   (list (frame-parameter frame 'name)
                                          (frame-parameter frame 'name)
                                          (cons nil nil))
                                          'menu-bar-select-frame))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]