Remove quoting in λ!!
This commit is contained in:
parent
4299da1eb8
commit
62741a4214
1 changed files with 3 additions and 3 deletions
|
@ -180,9 +180,9 @@ at the values with which this function was called."
|
||||||
(defun λ!! (command &optional arg)
|
(defun λ!! (command &optional arg)
|
||||||
"Expands to a command that interactively calls COMMAND with prefix ARG."
|
"Expands to a command that interactively calls COMMAND with prefix ARG."
|
||||||
(declare (doc-string 1))
|
(declare (doc-string 1))
|
||||||
`(lambda () (interactive)
|
(lambda () (interactive)
|
||||||
(let ((current-prefix-arg ,arg))
|
(let ((current-prefix-arg arg))
|
||||||
(call-interactively ,command))))
|
(call-interactively command))))
|
||||||
(defalias 'lambda!! 'λ!!)
|
(defalias 'lambda!! 'λ!!)
|
||||||
|
|
||||||
(define-obsolete-function-alias 'FILE! 'file!) ; DEPRECATED
|
(define-obsolete-function-alias 'FILE! 'file!) ; DEPRECATED
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue