From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 5 Oct 2001 09:30:23 +0000 (+0000)
Subject: (frame-parameter): Add a setf method.
X-Git-Tag: ttn-vms-21-2-B4~19755
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=313b6c69a6d438385a2dc09236962d3a9fee8961;p=emacs.git

(frame-parameter): Add a setf method.
(ignore-errors): Don't bother using a `err' symbol.
---

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