convert `utop-perform' to more idiomatic quotation based macro
Ignore-this: 2729a0e0375729f93301f73701b272 darcs-hash:20120303144223-33bd9-95a371ecc3b7b953e0f0e4bb7317e7d79fa30791
This commit is contained in:
parent
f91647a254
commit
01263d3532
src/top
|
@ -183,7 +183,9 @@ to add the newline character if it is not accepted).")
|
|||
|
||||
(defmacro utop-perform (&rest actions)
|
||||
"Execute the given actions while checks are inhibited."
|
||||
(list 'let (list (list 'utop-inhibit-check t) (list 'inhibit-read-only t)) (cons 'progn actions)))
|
||||
`(let ((utop-inhibit-check t)
|
||||
(inhibit-read-only t))
|
||||
(progn ,@actions)))
|
||||
|
||||
(defun utop-insert (&rest args)
|
||||
"Insert text with checks inhibited."
|
||||
|
|
Loading…
Reference in New Issue