[Emacs-diffs] /srv/bzr/emacs/trunk r111286: * epg.el (epg-error): Set `error-message' property.

[Daiki Ueno]

------------------------------------------------------------
revno: 111286
committer: Daiki Ueno <address@hidden>
branch nick: trunk
timestamp: Fri 2012-12-21 16:35:02 +0900
message:
  * epg.el (epg-error): Set `error-message' property.
modified:
  lisp/ChangeLog
  lisp/epg.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-21 07:21:35 +0000
+++ b/lisp/ChangeLog    2012-12-21 07:35:02 +0000
@@ -1,6 +1,7 @@
 2012-12-21  Daiki Ueno  <address@hidden>
 
        * epg.el (epg--start): Print GPG_AGENT_INFO in the debug buffer.
+       (epg-error): Set `error-message' property.
 
 2012-12-21  Chong Yidong  <address@hidden>
 

=== modified file 'lisp/epg.el'
--- a/lisp/epg.el       2012-12-21 07:21:35 +0000
+++ b/lisp/epg.el       2012-12-21 07:35:02 +0000
@@ -161,6 +161,7 @@
 (defvar epg-prompt-alist nil)
 
 (put 'epg-error 'error-conditions '(epg-error error))
+(put 'epg-error 'error-message "GPG error")
 
 (defun epg-make-data-from-file (file)
   "Make a data object from FILE."