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
2a0c538b
Commit
2a0c538b
authored
Jul 04, 2005
by
Juri Linkov
Browse files
(eval-defun-1): Remove unnecessary quotes.
parent
383168ec
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lisp/emacs-lisp/lisp-mode.el
lisp/emacs-lisp/lisp-mode.el
+3
-3
No files found.
lisp/emacs-lisp/lisp-mode.el
View file @
2a0c538b
...
...
@@ -631,10 +631,10 @@ Reinitialize the face according to the `defface' specification."
;; Resetting `saved-face' temporarily to nil is needed to let
;; `defface' change the spec, regardless of a saved spec.
(
prog1
`
(
prog1
,
form
(
put
',
(
eval
(
nth
1
form
)
)
'saved-face
(
put
,
(
nth
1
form
)
'saved-face
',
(
get
(
eval
(
nth
1
form
))
'saved-face
))
(
put
',
(
eval
(
nth
1
form
)
)
'customized-face
',
(
eval
(
nth
2
form
)))
)
(
put
,
(
nth
1
form
)
'customized-face
,
(
nth
2
form
)))
(
put
(
eval
(
nth
1
form
))
'saved-face
nil
)))
((
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