mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

* term/ns-win.el (menu-bar-select-frame): Drop this override.\n\t(menu-bar-update-frames): Update call to menu-bar-select-frame.

Browse source
This commit is contained in:
Adrian Robert 2009-01-24 10:27:03 +00:00
parent 38291a39bc
commit 08324aaa01
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-01-24 Adrian Robert <Adrian.B.Robert@gmail.com>
* term/ns-win.el (menu-bar-select-frame): Drop this override.
(menu-bar-update-frames): Update call to menu-bar-select-frame.
2009-01-24 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-insert-inbox-text): Revert replacement of

19
lisp/term/ns-win.el
View file

@ -622,14 +622,6 @@ this defaults to \"printenv\"."
(define-key-after menu-bar-edit-menu [separator-undo] '("--") 'undo)
(define-key-after menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map) 'fill)
;;;; Windows menu
(defun menu-bar-select-frame (&optional frame)
(interactive)
(make-frame-visible last-command-event)
(raise-frame last-command-event)
(select-frame last-command-event))
(defun menu-bar-update-frames ()
;; If user discards the Windows item, play along.
(when (lookup-key (current-global-map) [menu-bar windows])
@ -638,9 +630,11 @@ this defaults to \"printenv\"."
(setcdr frames-menu
(nconc
(mapcar (lambda (frame)
(list* frame
(cdr (assq 'name (frame-parameters frame)))
'menu-bar-select-frame))
(list*
(frame-parameter frame 'window-id)
(frame-parameter frame 'name)
`(lambda ()
(interactive) (menu-bar-select-frame ,frame))))
frames)
(cdr frames-menu)))
(define-key frames-menu [separator-frames] '("--"))
@ -846,7 +840,8 @@ See ns-insert-working-text."
message-log-max)
(setq ns-working-overlay-len (length ns-working-text))
(setq msg (concat msg ns-working-text))
(put-text-property msglen (+ msglen ns-working-overlay-len) 'face 'ns-working-text-face msg)
(put-text-property msglen (+ msglen ns-working-overlay-len)
'face 'ns-working-text-face msg)
(message "%s" msg)
(setq ns-working-overlay t)))