← Back to branch summary

~ubuntu-branches/ubuntu/lucid/sawfish/lucid-updates

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/util/window-order.jl

  • Committer: Bazaar Package Importer
  • Author(s): Christian Marillat
  • Date: 2005-02-23 16:16:46 UTC
  • mfrom: (1.2.1 upstream) (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050223161646-4id6qyw4h9lkvb0v
Tags: 1:1.3+cvs20050222-1
http://bugs.debian.org/295290
* New cvs release.
* Add an emacs initialisation script to load sawfish.el (Closes: #295290)
* Updated sawfish.el to 1.32

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/sawfish/wm/util/window-order.jl
1
1
;; window-order.jl -- keep track of recently accessed windows
2
 
;; $Id: window-order.jl,v 1.20 2001/02/08 04:23:15 jsh Exp $
 
2
;; $Id: window-order.jl,v 1.21 2002/04/23 07:43:52 jsh Exp $
3
3
 
4
4
;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
107
107
      (mapc (lambda (w)
108
108
              (when (window-get w 'sticky-viewport)
109
109
                (window-put w 'order nil))) order))
110
 
    (when (eq focus-mode 'click)
 
110
    (unless (eq focus-mode 'enter-exit)
111
111
      (window-order-focus-most-recent)))
112
112
 
113
113
  (sm-add-saved-properties 'order)