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

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.