view etc/emacs.bash @ 53556:68254590be55

Update copyright and commentary. (appt-issue-message): Delete (see appt-activate). (appt-visible, appt-msg-window): Make obsolete, in favour of appt-display-format. (appt-display-mode-line, appt-display-duration) (appt-display-diary, appt-time-msg-list, appt-mode-string) (appt-prev-comp-time, appt-display-count, appt-timer) (appt-convert-time): Doc change. (appt-disp-window-function, appt-delete-window-function): Use defcustom rather than defvar. (appt-display-format): New variable. (appt-display-message): New function with display code from appt-check. (appt-check): Add optional FORCE argument. Doc change. Add appt-make-list to diary-hook if displaying diary. Remove checking of view-diary-entries-initially. Message display section removed to new function appt-display-message. (appt-display-window): Doc change. Remove unused internal var this-buffer. Do not beep, since appt-display-message does that. (appt-make-list): Doc change. Use caar. (appt-sort-list): Simplify by using builtin sort function. (appt-update-list): New function for updating appts when diary is saved. (appt-activate): New autoloaded function to toggle package functionality.
author Glenn Morris <rgm@gnu.org>
date Sun, 11 Jan 2004 22:24:57 +0000
parents 695cf19ef79e
children 615a90f44f52 375f2633d815
line wrap: on
line source

# This defines a bash command named `edit' which contacts/resumes an
# existing emacs or starts a new one if none exists.
#
# One way or another, any arguments are passed to emacs to specify files
# (provided you have loaded `resume.el').
#
# This function assumes the emacs program is named `emacs' and is somewhere
# in your load path.  If either of these is not true, the most portable
# (and convenient) thing to do is to make an alias called emacs which
# refers to the real program, e.g.
#
#        alias emacs=/usr/local/bin/gemacs
#
# Written by Noah Friedman.

function edit ()
{
 local windowsys="${WINDOW_PARENT+sun}"

 windowsys="${windowsys:-${DISPLAY+x}}"

 if [ -n "${windowsys:+set}" ]; then
    # Do not just test if these files are sockets.  On some systems
    # ordinary files or fifos are used instead.  Just see if they exist.
    if [ -e "${HOME}/.emacs_server" -o -e "/tmp/esrv${UID}-"* ]; then
       emacsclient "$@"
       return $?
    else
       echo "edit: starting emacs in background..." 1>&2
    fi

    case "${windowsys}" in
      x ) (emacs "$@" &) ;;
      sun ) (emacstool "$@" &) ;;
    esac
 else
    if jobs %emacs 2> /dev/null ; then
       echo "$(pwd)" "$@" >| ${HOME}/.emacs_args && fg %emacs
    else
       emacs "$@"
    fi
 fi
}


# arch-tag: 1e1b74b9-bf2c-4b23-870f-9eebff7515cb