Return to dot.clinit 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.clinit, revision 1.1

1.1     ! root        1: ;;                             -[Fri Nov 18 19:00:37 1988 by layer]-
        !             2: ;; Sample .clinit.cl file
        !             3: ;;
        !             4: ;; $Header: dot.clinit.cl,v 1.1 88/11/18 19:00:54 layer Exp $
        !             5: 
        !             6: (format t "; Loading home clinit...~%")
        !             7: 
        !             8: (defparameter *emacs-library*
        !             9:   (let ((emacs-lib (si:getenv "EMACSLIBRARY")))
        !            10:     (if emacs-lib (format nil "~a/lisp/fi/" emacs-lib))))
        !            11: 
        !            12: (and *emacs-library*
        !            13:      (find "+ipc" (system:command-line-arguments) :test #'string=)
        !            14:      (load (merge-pathnames "clinit.cl" *emacs-library*))
        !            15:      (load-and-start-ipc-package :unix-domain nil))
        !            16: 
        !            17: ;; The following emulates the C shell cd, pushd, popd, pwd, and dirs,
        !            18: ;; and allows Emacs to track directory changes:
        !            19: 
        !            20: (defvar *directory-stack*
        !            21:   (list (namestring
        !            22:         (setq *default-pathname-defaults* (current-directory)))))
        !            23: 
        !            24: (tpl:alias ("pushd" :string) (&optional dir)
        !            25:   (if* (string= "" dir)
        !            26:      then (let ((old-top (pop *directory-stack*))
        !            27:                (new-top (pop *directory-stack*)))
        !            28:            (push old-top *directory-stack*)
        !            29:            (push (chdir new-top) *directory-stack*))
        !            30:      else (push (chdir dir) *directory-stack*))
        !            31:   (format t "~a~%" *directory-stack*))
        !            32: 
        !            33: (tpl:alias "popd" ()
        !            34:   (if (> (length *directory-stack*) 1)
        !            35:       (pop *directory-stack*)
        !            36:     (format t "nothing to pop into~%"))
        !            37:   (chdir (car *directory-stack*))
        !            38:   (format t "~a~%" *directory-stack*))
        !            39: 
        !            40: (tpl:alias "dirs" ()
        !            41:   (format t "~a~%" *directory-stack*))
        !            42: 
        !            43: (tpl:alias ("cd" :string) (dir)
        !            44:   (setf (car *directory-stack*)
        !            45:     (apply #'chdir
        !            46:           (if (string= "" dir) nil (list dir))))
        !            47:   (format t "~a~%" *directory-stack*))
        !            48: 
        !            49: (tpl:alias "pwd" ()
        !            50:   (format t "process cwd = ~a~%*default-pathname-defaults* = ~a~%"
        !            51:          (namestring (current-directory))
        !            52:          (namestring (truename *default-pathname-defaults*))))

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