Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 78f53ef88e17
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
811 (if auto-raise-frame (raise-frame (selected-frame)))) 811 (if auto-raise-frame (raise-frame (selected-frame))))
812 812
813 (defun default-deselect-frame-hook () 813 (defun default-deselect-frame-hook ()
814 "Implements the `auto-lower-frame' variable. 814 "Implements the `auto-lower-frame' variable.
815 For use as the value of `deselect-frame-hook'." 815 For use as the value of `deselect-frame-hook'."
816 (if auto-lower-frame (lower-frame (selected-frame)))) 816 (if auto-lower-frame (lower-frame (selected-frame)))
817 (highlight-extent nil nil))
817 818
818 (or select-frame-hook 819 (or select-frame-hook
819 (add-hook 'select-frame-hook 'default-select-frame-hook)) 820 (add-hook 'select-frame-hook 'default-select-frame-hook))
820 821
821 (or deselect-frame-hook 822 (or deselect-frame-hook