← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/ui/main.jl.in

  • 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/ui/main.jl.in
11
11
 
12
12
#| nokogiri-main.jl -- entry point
13
13
 
14
 
   $Id: main.jl.in,v 1.10 2000/11/18 00:32:43 jsh Exp $
 
14
   $Id: main.jl.in,v 1.12 2003/01/12 20:30:47 jsh Exp $
15
15
 
16
16
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
17
17
 
40
40
          sawfish.gtk.widget
41
41
          sawfish.ui.i18n
42
42
          sawfish.ui.shell
43
 
          sawfish.ui.group
44
 
          sawfish.ui.user-level)
 
43
          sawfish.ui.group)
45
44
 
46
45
  (define socket-id nil)
47
46
 
60
59
      (setq group (read-from-string group))
61
60
      (set-top-group (if (listp group) group `(root ,group)))))
62
61
 
63
 
  (let ((level (get-command-line-option "--user-level" t)))
64
 
    (when level
65
 
      (setq *nokogiri-user-level* (read-from-string level))))
66
 
 
67
 
  (when (get-command-line-option "--flatten")
 
62
  ;; XXX remove the "or t" when trees work again
 
63
  (when (or t (get-command-line-option "--flatten"))
68
64
    (setq *nokogiri-flatten-groups* t))
69
65
 
70
66
  (when (get-command-line-option "--single-level")