Mercurial > emacs
annotate etc/emacs.bash @ 72343:2ae29d562915
* keyboard.c: Define in_sighandler.
(input_available_signal): Set in_sighandler.
(init_keyboard): Initialize in_sighandler.
* keyboard.h: Declare in_sighandler.
* alloc.c (UNBLOCK_INPUT_ALLOC, BLOCK_INPUT_ALLOC): Use in_sighandler
to check if mutex should be locked or not.
author | Jan Djärv <jan.h.d@swipnet.se> |
---|---|
date | Thu, 10 Aug 2006 06:09:57 +0000 |
parents | 615a90f44f52 |
children | 873c558e1383 72cf6261961e |
rev | line source |
---|---|
25853 | 1 # This defines a bash command named `edit' which contacts/resumes an |
2 # existing emacs or starts a new one if none exists. | |
3 # | |
4 # One way or another, any arguments are passed to emacs to specify files | |
5 # (provided you have loaded `resume.el'). | |
6 # | |
7 # This function assumes the emacs program is named `emacs' and is somewhere | |
8 # in your load path. If either of these is not true, the most portable | |
9 # (and convenient) thing to do is to make an alias called emacs which | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25853
diff
changeset
|
10 # refers to the real program, e.g. |
25853 | 11 # |
12 # alias emacs=/usr/local/bin/gemacs | |
13 # | |
14 # Written by Noah Friedman. | |
15 | |
16 function edit () | |
17 { | |
18 local windowsys="${WINDOW_PARENT+sun}" | |
19 | |
20 windowsys="${windowsys:-${DISPLAY+x}}" | |
21 | |
22 if [ -n "${windowsys:+set}" ]; then | |
23 # Do not just test if these files are sockets. On some systems | |
24 # ordinary files or fifos are used instead. Just see if they exist. | |
59923
615a90f44f52
Update the name of the socket of the Emacs server.
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
25 if [ -e "${HOME}/.emacs_server" -o -e "/tmp/emacs${UID}/server" ]; then |
25853 | 26 emacsclient "$@" |
27 return $? | |
28 else | |
29 echo "edit: starting emacs in background..." 1>&2 | |
30 fi | |
31 | |
32 case "${windowsys}" in | |
33 x ) (emacs "$@" &) ;; | |
34 sun ) (emacstool "$@" &) ;; | |
35 esac | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25853
diff
changeset
|
36 else |
25853 | 37 if jobs %emacs 2> /dev/null ; then |
38 echo "$(pwd)" "$@" >| ${HOME}/.emacs_args && fg %emacs | |
39 else | |
40 emacs "$@" | |
41 fi | |
42 fi | |
43 } | |
44 | |
45 | |
52401 | 46 # arch-tag: 1e1b74b9-bf2c-4b23-870f-9eebff7515cb |