Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5e871da0
Commit
5e871da0
authored
Mar 26, 2000
by
Dave Love
Browse files
(lisp-eval-defun): Make arglist compatible with inf-lisp version.
(eval-defun-1): Fix custom-declare-variable case.
parent
19d1bc27
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
lisp/emacs-lisp/lisp-mode.el
lisp/emacs-lisp/lisp-mode.el
+5
-4
No files found.
lisp/emacs-lisp/lisp-mode.el
View file @
5e871da0
...
...
@@ -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
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment