Variable: lisp-prev-l/c-dir/file

lisp-prev-l/c-dir/file is a variable defined in inf-lisp.el.gz.

Value

nil

Documentation

Record last directory and file used in loading or compiling.

This holds a cons cell of the form (DIRECTORY . FILE) describing the last lisp-load-file or lisp-compile-file command.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/inf-lisp.el.gz
;;; A version of the form in H. Shevis' soar-mode.el package. Less robust.
;;; (defun lisp-compile-sexp (start end)
;;;   "Compile the s-expression bounded by START and END in the inferior lisp.
;;; If the sexp isn't a DEFUN form, it is evaluated instead."
;;;   (cond ((looking-at "(defun\\s +")
;;;      (goto-char (match-end 0))
;;;      (let ((name-start (point)))
;;;        (forward-sexp 1)
;;;        (process-send-string "inferior-lisp"
;;;                             (format "(compile '%s (lambda "
;;;                                     (buffer-substring name-start
;;;                                                       (point)))))
;;;      (let ((body-start (point)))
;;;        (goto-char start) (forward-sexp 1) ; Can't use end-of-defun.
;;;        (process-send-region "inferior-lisp"
;;;                             (buffer-substring body-start (point))))
;;;      (process-send-string "inferior-lisp" ")\n"))
;;;     (t (lisp-eval-region start end)))))
;;;
;;; (defun lisp-compile-region (start end)
;;;   "Each s-expression in the current region is compiled (if a DEFUN)
;;; or evaluated (if not) in the inferior lisp."
;;;   (interactive "r")
;;;   (save-excursion
;;;     (goto-char start) (end-of-defun) (beginning-of-defun) ; error check
;;;     (if (< (point) start) (error "Region begins in middle of defun"))
;;;     (goto-char start)
;;;     (let ((s start))
;;;       (end-of-defun)
;;;       (while (<= (point) end) ; Zip through
;;;     (lisp-compile-sexp s (point)) ; compiling up defun-sized chunks.
;;;     (setq s (point))
;;;     (end-of-defun))
;;;       (if (< s end) (lisp-compile-sexp s end)))))
;;;
;;; End of HS-style code


(defvar lisp-prev-l/c-dir/file nil
  "Record last directory and file used in loading or compiling.
This holds a cons cell of the form `(DIRECTORY . FILE)'
describing the last `lisp-load-file' or `lisp-compile-file' command.")