mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(frame-parameter): Add a setf method.

Browse source 
(ignore-errors): Don't bother using a `err' symbol.
This commit is contained in:
Gerd Moellmann 2001-10-05 09:30:23 +00:00
parent 3614fc84de
commit 313b6c69a6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/cl-macs.el
View file

@ -1587,6 +1587,7 @@ Example: (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))."
(defsetf frame-parameters modify-frame-parameters t)
(defsetf frame-visible-p cl-set-frame-visible-p)
(defsetf frame-width set-screen-width t)
(defsetf frame-parameter set-frame-parameter)
(defsetf getenv setenv t)
(defsetf get-register set-register)
(defsetf global-key-binding global-set-key)
@ -2313,8 +2314,7 @@ omitted, a default message listing FORM itself is used."
(defmacro ignore-errors (&rest body)
"Execute FORMS; if an error occurs, return nil.
Otherwise, return result of last FORM."
(let ((err (gensym)))
(list 'condition-case err (cons 'progn body) '(error nil))))
`(condition-case nil (progn ,@body) (error nil)))
;;; Some predicates for analyzing Lisp forms. These are used by various