Return to dot.emacs CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / dist-1.3 / fi

Annotation of 43BSDReno/contrib/emacs-18.55/dist-1.3/fi/dot.emacs, revision 1.1

1.1     ! root        1: ;;                             -[Fri Nov 18 18:53:13 1988 by layer]-
        !             2: ;; Sample .emacs file
        !             3: ;;
        !             4: ;; $Header: dot.emacs,v 1.1 88/11/18 19:00:50 layer Exp $
        !             5: 
        !             6: (load "fi/site-init.el")
        !             7: 
        !             8: ;; use a socket file in /tmp since can't communicate via files on NFS
        !             9: ;; mounted file systems
        !            10: ;;
        !            11: (setq fi:unix-domain-socket
        !            12:   (format "/tmp/%s_emacs_to_acl" (user-login-name)))
        !            13: 
        !            14: ;; turn on superkeys in subprocess modes
        !            15: ;;
        !            16: (setq-default fi:subprocess-enable-superkeys t)
        !            17: 
        !            18: ;; the following causes fi:common-lisp to give the inferior Common
        !            19: ;; Lisp, by default, a command line argument of `+ipc':
        !            20: ;;
        !            21: (setq fi:common-lisp-image-arguments '("+ipc"))
        !            22: 
        !            23: ;; the following causes fi:common-lisp to invoke the image `acl', but
        !            24: ;; to ask for an image name when given a prefix argument:
        !            25: ;;
        !            26: (setq fi:common-lisp-image-name
        !            27:   '(lambda ()
        !            28:     (let ((image "acl"))
        !            29:       (if current-prefix-arg
        !            30:          (setq image
        !            31:            (read-file-name (format "cl image (default: %s): " image)
        !            32:                            default-directory image nil)))
        !            33:       (setq mode-line-buffer-identification
        !            34:        (format "%s (%s)" (buffer-name) (file-name-nondirectory image)))
        !            35:       image)))
        !            36: 
        !            37: ;; This redefines `kill-emacs' so that transaction files in /tmp are
        !            38: ;; removed emacs is killed:
        !            39: ;;
        !            40: (fset 'old-kill-emacs (symbol-function 'kill-emacs))
        !            41: (defun kill-emacs (&optional arg)
        !            42:   (interactive "P")
        !            43:   (fi:remove-all-temporary-lisp-transaction-files)
        !            44:   (old-kill-emacs arg))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.