Mercurial > emacs
annotate etc/emacs.csh @ 86170:e6b555f6c76b
(ring-size, ring-p, ring-insert, ring-length, ring-empty-p): Use c[ad]dr.
(ring-plus1): Use `1+'.
(ring-minus1): Use `zerop'.
(ring-remove): Use c[ad]dr. Use `when'.
(ring-copy): Use c[ad]dr. Use `let', not `let*'.
(ring-ref): Use `let', not `let*'.
(ring-insert-at-beginning): Use c[ad]dr. Doc fix.
(ring-insert+extend): Use c[ad]dr. Fix typo in docstring.
(ring-member): Simplify. Doc fix.
(ring-convert-sequence-to-ring): Simplify.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sat, 17 Nov 2007 02:50:37 +0000 |
parents | e5c92420fce1 |
children | bdb3fe0ba9fa 4f618405b3d2 |
rev | line source |
---|---|
75774
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
1 ### emacs.csh |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
2 |
76471
7931bf16e03e
Add comment about legal notices.
Chong Yidong <cyd@stupidchicken.com>
parents:
76458
diff
changeset
|
3 ## Add legal notice if non-trivial amounts of code are added. |
7931bf16e03e
Add comment about legal notices.
Chong Yidong <cyd@stupidchicken.com>
parents:
76458
diff
changeset
|
4 |
75774
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
5 ## Author: Michael DeCorte |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
6 |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
7 ### Commentary: |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
8 |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
9 ## This defines a csh command named `edit' which resumes an |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
10 ## existing Emacs or starts a new one if none exists. |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
11 ## One way or another, any arguments are passed to Emacs to specify files |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
12 ## (provided you have loaded `resume.el'). |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
13 |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
14 ## These are the possible values of $whichjob |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
15 ## 1 = new ordinary emacs (the -nw is so that it doesn't try to do X) |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
16 ## 2 = resume emacs |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
17 ## 3 = new emacs under X (-i is so that you get a reasonable icon) |
dc23aaa67696
Switch to standard GPL text for license.
Glenn Morris <rgm@gnu.org>
parents:
75343
diff
changeset
|
18 ## 4 = resume emacs under X |
25853 | 19 set EMACS_PATTERN="^\[[0-9]\] . Stopped ............ $EMACS" |
20 | |
21 alias edit 'set emacs_command=("emacs -nw \!*" "fg %emacs" "emacs -i \!* &"\ | |
22 "emacsclient \!* &") ; \ | |
23 jobs >! $HOME/.jobs; grep "$EMACS_PATTERN" < $HOME/.jobs >& /dev/null; \ | |
24 @ isjob = ! $status; \ | |
25 @ whichjob = 1 + $isjob + $?DISPLAY * 2 + $?WINDOW_PARENT * 4; \ | |
26 test -S ~/.emacs_server && emacsclient \!* \ | |
27 || echo `pwd` \!* >! ~/.emacs_args && eval $emacs_command[$whichjob]' | |
52401 | 28 |
29 # arch-tag: 433d58df-15b9-446f-ad37-f0393e3a23d4 |