Mercurial > emacs

comparison lisp/gnus/gnus-util.el @ 96675:d45acf0c8d23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merging Emacs.app (NeXTstep port)
author Adrian Robert <Adrian.B.Robert@gmail.com>
date Tue, 15 Jul 2008 18:15:18 +0000
parents be43dd7afc91
children 86b977a209f5
comparison
equal deleted inserted replaced
96674:ff312a846b25 96675:d45acf0c8d23
1610 (raise-frame frame) 1610 (raise-frame frame)
1611 (select-frame frame) 1611 (select-frame frame)
1612 (cond ((memq window-system '(x mac)) 1612 (cond ((memq window-system '(x mac))
1613 (x-focus-frame frame)) 1613 (x-focus-frame frame))
1614 ((eq window-system 'w32) 1614 ((eq window-system 'w32)
1615 (w32-focus-frame frame))) 1615 (w32-focus-frame frame))
1616 ((eq window-system 'ns)
1617 (ns-focus-frame frame)))
1616 (when focus-follows-mouse 1618 (when focus-follows-mouse
1617 (set-mouse-position frame (1- (frame-width frame)) 0))))) 1619 (set-mouse-position frame (1- (frame-width frame)) 0)))))
1618 1620
1619 (defun gnus-frame-or-window-display-name (object) 1621 (defun gnus-frame-or-window-display-name (object)
1620 "Given a frame or window, return the associated display name. 1622 "Given a frame or window, return the associated display name.