Mercurial > emacs
annotate etc/emacs.bash @ 90541:b7130e76c2f9
Include window.h.
(font_lispy_object): New function.
(font_prepare_composition): Check LGLYPH_FORM (g) to detect the
end of valid glyph.
(font_close_object): Fix getting (struct font *).
(font_at): New function.
(Ffont_get): If FONT is a font-object, get entity from it.
(Ffont_make_gstring): Initialize elements of glyphs with nil.
(Ffont_fill_gstring): Use macro LGSTRING_XXX and LGLYPH_XXX. Fix
range check.
(Ffont_at): New function.
(syms_of_font): Defsubr Sfont_at.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 24 Jul 2006 04:42:53 +0000 |
parents | 72cf6261961e |
children | f83d17e1ace6 |
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 |