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

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

Re: EasyPG 0.0.14


From: Adrian Aichner
Subject: Re: EasyPG 0.0.14
Date: Thu, 02 Aug 2007 21:27:50 +0200
User-agent: Gnus/5.1007 (Gnus v5.10.7) XEmacs/21.5-b28 (windows-nt)

Hello Daiki!

I am currently using CVS easypg.

On XEmacs startup I got following backtrace:

(1) (initialization/error) An error has occurred while loading .emacs:

Malformed list: :bold

Backtrace follows:

  apply(face-custom-attributes-set epa-validity-high nil (custom) :bold)
  # bind (display atts tags frame spec face)
  face-display-set(epa-validity-high ((((class color) (background dark)) 
(:foreground "PaleTurquoise" :bold t)) (t :bold t)) nil (custom))
  # bind (value frames frame args doc spec face)
  custom-declare-face(epa-validity-high ((((class color) (background dark)) 
(:foreground "PaleTurquoise" :bold t)) (t :bold t)) "Face used for displaying 
the high validity." :group epa-faces)
  (defface epa-validity-high (backquote ((((class color) (background dark)) 
(:foreground "PaleTurquoise" (\,@ (if (assq (quote :weight) 
custom-face-attributes) (quote (:weight bold)) (quote (:bold t)))))) (t (\,@ 
(if (assq (quote :weight) custom-face-attributes) (quote (:weight bold)) (quote 
(:bold t))))))) "Face used for displaying the high validity." :group (quote 
epa-faces))
  # (unwind-protect ...)
<37 lines deleted by Adrian Aichner>
  require(epa-setup)

The fix for the error, which is in 0.0.14 as well, seems obvious:

ChangeLog addition:

2007-08-02  Adrian Aichner  <address@hidden>

        * epa.el (epa-validity-high): Fix load error by adding missing
        paren pair.

Index: epa.el
===================================================================
RCS file: /cvs/root/epg/epa.el,v
retrieving revision 1.161
diff -u -u -r1.161 epa.el
--- epa.el      29 Jul 2007 03:37:52 -0000      1.161
+++ epa.el      2 Aug 2007 19:17:27 -0000
@@ -55,9 +55,9 @@
                        '(:weight bold)
                      '(:bold t))))
     (t
-     ,@(if (assq ':weight custom-face-attributes)
-          '(:weight bold)
-        '(:bold t))))
+     (,@(if (assq ':weight custom-face-attributes)
+           '(:weight bold)
+         '(:bold t)))))
   "Face used for displaying the high validity."
   :group 'epa-faces)
 


-- 
Adrian Aichner
 mailto:address@hidden
 http://www.xemacs.org/





reply via email to

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