From: ueno <ueno>
Date: Tue, 2 May 2006 02:13:43 +0000 (+0000)
Subject: * epg.el (epg-make-sub-key): Renamed secret -> secret-p.
X-Git-Tag: epg-0_0_2~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=342159e2115c7c9b1c2517f04dec51990deece00;p=elisp%2Fepg.git

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

diff --git a/ChangeLog b/ChangeLog
index 40deb56..5072f2f 100644
--- 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
--- 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)))