From 342159e2115c7c9b1c2517f04dec51990deece00 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 2 May 2006 02:13:43 +0000 Subject: [PATCH] * epg.el (epg-make-sub-key): Renamed secret -> secret-p. --- ChangeLog | 1 + epg.el | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) 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 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))) -- 1.7.10.4