* epg.el (epg-make-sub-key): Renamed secret -> secret-p.

diff --git a/ChangeLog b/ChangeLog
index 40deb56..5072f2f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 
        * epg.el (epg-make-key-signature): New object epg-key-signature.
        (epg-list-keys): Collect key signatures.
+       (epg-make-sub-key): Renamed secret -> secret-p.
 
 2006-05-01  Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/epg.el b/epg.el
index cde76ad..aa06274 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -556,11 +556,11 @@ This function is for internal use only."
     (signal 'wrong-type-argument (list 'epg-key-p key)))
   (aset (cdr key) 2 user-id-list))
 
-(defun epg-make-sub-key (validity capability secret algorithm length id
+(defun epg-make-sub-key (validity capability secret-p algorithm length id
                                  creation-time expiration-time)
   "Return a sub key object."
   (cons 'epg-sub-key
-       (vector validity capability secret algorithm length id creation-time
+       (vector validity capability secret-p algorithm length id creation-time
                expiration-time nil)))
 
 (defun epg-sub-key-validity (sub-key)
@@ -575,7 +575,7 @@ This function is for internal use only."
     (signal 'wrong-type-argument (list 'epg-sub-key-p sub-key)))
   (aref (cdr sub-key) 1))
 
-(defun epg-sub-key-secret (sub-key)
+(defun epg-sub-key-secret-p (sub-key)
   "Return non-nil if SUB-KEY is a secret key."
   (unless (eq (car sub-key) 'epg-sub-key)
     (signal 'wrong-type-argument (list 'epg-sub-key-p sub-key)))