From b740418c1964212e0c3d731111a8287586d25355 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 12 Nov 2006 00:44:53 +0000 Subject: [PATCH] epg-signature-notation -> epg-sig-notation. --- epg.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/epg.el b/epg.el index 4b4700f..dcc3f7f 100644 --- a/epg.el +++ b/epg.el @@ -440,7 +440,7 @@ This function is for internal use only." (signal 'wrong-type-argument (list 'epg-signature-p signature))) (aref (cdr signature) 9)) -(defun epg-signature-notations (signature) +(defun epg-sig-notations (signature) "Return the list of notations of SIGNATURE." (unless (eq (car-safe signature) 'epg-signature) (signal 'wrong-type-argument (list 'epg-signature-p signature))) @@ -1219,13 +1219,13 @@ This function is for internal use only." (epg-signature-set-notations signature (cons (epg-make-sig-notation string nil t nil) - (epg-signature-notations signature)))))) + (epg-sig-notations signature)))))) (defun epg--status-NOTATION_DATA (context string) (let ((signature (car (epg-context-result-for context 'verify))) notation) (if (and signature - (setq notation (car (epg-signature-notations signature)))) + (setq notation (car (epg-sig-notations signature)))) (epg-sig-notation-set-value notation string)))) (defun epg--status-POLICY_URL (context string) @@ -1234,7 +1234,7 @@ This function is for internal use only." (epg-signature-set-notations signature (cons (epg-make-sig-notation nil string t nil) - (epg-signature-notations signature)))))) + (epg-sig-notations signature)))))) (defun epg--status-PROGRESS (context string) (if (string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)" -- 1.7.10.4