Mercurial > emacs
annotate etc/emacs.bash @ 83537:c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
* src/xmenu.c (Fx_menu_bar_open) [USE_X_TOOLKIT, USE_GTK]:
Rename from Fmenu_bar_open.
(syms_of_xmenu): Update defsubr.
* lisp/menu-bar.el (menu-bar-open): New function.
Bind it to f10.
* lisp/term/x-win.el: Don't bind f10.
* lisp/tmm.el: Remove autoload binding for f10.
* lisp/ldefs-boot.el: Regenerate.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-577
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sat, 29 Jul 2006 20:57:26 +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 |
