[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: 23.0.0; Nonsense in lisp/frame.el after cvs-update
From: |
martin rudalics |
Subject: |
Re: 23.0.0; Nonsense in lisp/frame.el after cvs-update |
Date: |
Sat, 13 Oct 2007 14:15:50 +0200 |
User-agent: |
Mozilla Thunderbird 1.0 (Windows/20041206) |
The correct form surely is
(cond ((memq (window-system frame) '(x mac w32 ns))
There are some more inconsistencies here. Does the attached patch DTRT?
*** frame.el.~1.257.~ Wed Oct 10 22:44:34 2007
--- frame.el Sat Oct 13 14:12:26 2007
***************
*** 820,829 ****
(select-frame frame)
(raise-frame frame)
;; Ensure, if possible, that frame gets input focus.
! (cond ((memq (window-system frame) '(x max w32))
! (x-focus-frame frame)))
! (cond (focus-follows-mouse
! (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
(defun other-frame (arg)
"Select the ARGth different visible frame on current display, and raise it.
--- 820,829 ----
(select-frame frame)
(raise-frame frame)
;; Ensure, if possible, that frame gets input focus.
! (when (memq (window-system frame) '(x mac w32 ns))
! (x-focus-frame frame))
! (when focus-follows-mouse
! (set-mouse-position (selected-frame) (1- (frame-width)) 0)))
(defun other-frame (arg)
"Select the ARGth different visible frame on current display, and raise it.
***************
*** 905,912 ****
(raise-frame frame)
(select-frame frame)
;; Ensure, if possible, that frame gets input focus.
! (cond ((memq (window-system frame) '(x w32))
! (x-focus-frame frame)))
(when focus-follows-mouse
(set-mouse-position frame (1- (frame-width frame)) 0))))
--- 905,912 ----
(raise-frame frame)
(select-frame frame)
;; Ensure, if possible, that frame gets input focus.
! (when (memq (window-system frame) '(x mac w32 ns))
! (x-focus-frame frame))
(when focus-follows-mouse
(set-mouse-position frame (1- (frame-width frame)) 0))))
***************
*** 1455,1461 ****
:init-value (not (or noninteractive
no-blinking-cursor
(eq system-type 'ms-dos)
! (not (memq window-system '(x w32 mac)))))
:initialize 'custom-initialize-safe-default
:group 'cursor
:global t
--- 1455,1461 ----
:init-value (not (or noninteractive
no-blinking-cursor
(eq system-type 'ms-dos)
! (not (memq window-system '(x w32 mac ns)))))
:initialize 'custom-initialize-safe-default
:group 'cursor
:global t