procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lisp-eval-defun): Make arglist compatible with inf-lisp version.

Browse source 
(eval-defun-1): Fix custom-declare-variable case.
This commit is contained in:
Dave Love 2000-03-26 16:36:17 +00:00
parent 19d1bc27d3
commit 5e871da0a6
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/lisp-mode.el
View file

@ -278,8 +278,8 @@ if that value is non-nil."
(set-syntax-table lisp-mode-syntax-table)
(run-hooks 'lisp-mode-hook))
;; This will do unless shell.el is loaded.
(defun lisp-eval-defun nil
;; This will do unless inf-lisp.el is loaded.
(defun lisp-eval-defun (&optional and-go)
"Send the current defun to the Lisp process made by \\[run-lisp]."
(interactive)
(error "Process lisp does not exist"))
@ -395,11 +395,12 @@ With argument, print output into current buffer."
(cdr-safe (cdr-safe form)))
;; Force variable to be bound.
(cons 'defconst (cdr form)))
;; `defcustom' is now macroexpanded to `custom-declare-variable'.
;; `defcustom' is now macroexpanded to
;; `custom-declare-variable' with a quoted value arg.
((and (eq (car form) 'custom-declare-variable)
(default-boundp (eval (nth 1 form))))
;; Force variable to be bound.
(set-default (eval (nth 1 form)) (eval (nth 2 form)))
(set-default (eval (nth 1 form)) (eval (nth 1 (nth 2 form))))
form)
((eq (car form) 'progn)
(cons 'progn (mapcar 'eval-defun-1 (cdr form))))