← 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/groups.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/groups.jl
1
1
;; group-funs.jl -- ever-present window-group support
2
 
;; $Id: groups.jl,v 1.30 2000/12/06 19:43:05 jsh Exp $
 
2
;; $Id: groups.jl,v 1.31 2002/04/20 20:59:20 jsh Exp $
3
3
 
4
4
;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
60
60
 
61
61
  (define-structure-alias group-funs sawfish.wm.util.groups)
62
62
 
63
 
  (defcustom transients-are-group-members t
64
 
    "Group transient windows with their parents."
65
 
    :type boolean
66
 
    :user-level expert
67
 
    :group misc)
 
63
  (defvar transients-are-group-members t
 
64
    "Group transient windows with their parents.")
68
65
 
69
 
  (defcustom persistent-group-ids nil
70
 
    nil
71
 
    :type* `(list symbol ,(_ "Persistent group ids"))
72
 
    :widget-flags (expand-vertically framed)
73
 
    :user-level expert
74
 
    :group misc)
 
66
  (defvar persistent-group-ids '()
 
67
    "List of symbols naming groups that always exist.")
75
68
 
76
69
  (define (window-actual-group-id w)
77
70
    "Return the id of the group that window W is a member of."