bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

vc-error-occurred could use backquote


From: Kalle Olavi Niemitalo
Subject: vc-error-occurred could use backquote
Date: 09 Nov 2001 00:49:24 +0200

In GNU Emacs 21.1.1 (i386-debian-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2001-10-29 on Astalo, modified by Debian
configured using `configure  i386-debian-linux-gnu --prefix=/usr 
--sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib 
--infodir=/usr/share/info --mandir=/usr/share/man --with-pop=yes --with-x=yes 
--with-x-toolkit=athena'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: fi_FI
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

vc-hooks.el contains this definition:

(defmacro vc-error-occurred (&rest body)
  (list 'condition-case nil (cons 'progn (append body '(nil))) '(error t)))

That's a bit cumbersome to read; here's the backquoted equivalent:

(defmacro vc-error-occurred (&rest body)
  `(condition-case nil (progn ,@body nil) (error t))

The vc-call macro in the same file already uses backquote, so I
suppose there's no reason to avoid backquote in vc-error-occurred.

Recent input:
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
C-c C-c C-a C-k <return> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> C-x b <return> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> C-x b v c - <tab> C-g C-a 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> C-x C-f v c - <tab> h o 
<tab> <return> M-< C-s a p p e n d C-a <up> M-x <up> 
<return>

Recent messages:
Mark set [2 times]
unzipping elisp-1.gz...done
unzipping elisp-7.gz...done
keyboard-quit: Quit
Mark set [2 times]
Sending...done
list: Quit
Making completion list...
Mark set
Mark saved where search started



reply via email to

[Prev in Thread] Current Thread [Next in Thread]