← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/commands/xterm.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/commands/xterm.jl
1
1
#| xterm.jl -- command to launch an xterm
2
2
 
3
 
   $Id: xterm.jl,v 1.4 2000/09/11 07:44:42 john Exp $
 
3
   $Id: xterm.jl,v 1.7 2002/04/21 22:25:12 jsh Exp $
4
4
 
5
5
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
6
6
 
30
30
          sawfish.wm.custom
31
31
          sawfish.wm.commands)
32
32
 
 
33
  (defgroup xterm "Terminal"
 
34
    :group misc
 
35
    :require sawfish.wm.commands.xterm)
 
36
 
33
37
  (defcustom xterm-program "xterm"
34
38
    "The program launched by the `xterm' command."
35
39
    :type string
36
 
    :user-level expert
37
 
    :group misc)
 
40
    :group (misc xterm))
38
41
 
39
 
  (defcustom xterm-args nil
40
 
    "Optional arguments given to the `xterm' command."
41
 
    :type (optional string)
42
 
    :user-level expert
43
 
    :group misc)
 
42
  (defcustom xterm-args ""
 
43
    "Arguments given to the `xterm' command."
 
44
    :type string
 
45
    :group (misc xterm))
44
46
 
45
47
  (define (xterm #!optional command)
46
48
    "Start a new xterm."