From 313b6c69a6d438385a2dc09236962d3a9fee8961 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 5 Oct 2001 09:30:23 +0000 Subject: [PATCH] (frame-parameter): Add a setf method. (ignore-errors): Don't bother using a `err' symbol. --- lisp/emacs-lisp/cl-macs.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 3dd84648945..a624677dd5b 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -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 -- 2.39.2