From: ueno <ueno>
Date: Wed, 3 Nov 1999 09:39:51 +0000 (+0000)
Subject: * pgg-def.el (pgg-truncate-key-identifier): New macro.
X-Git-Tag: emiko-1_13_7~94
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8b078ff1045b316bb8ce5f3d6b0a1cba2e751207;p=elisp%2Fsemi.git

* pgg-def.el (pgg-truncate-key-identifier): New macro.
---

diff --git a/pgg-def.el b/pgg-def.el
index 83507f3..9a7f6be 100644
--- a/pgg-def.el
+++ b/pgg-def.el
@@ -48,6 +48,9 @@
 (defvar pgg-scheme nil
   "Current scheme of PGP implementation")
 
+(defmacro pgg-truncate-key-identifier (key)
+  `(if (> (length ,key) 8) (substring ,key 8) ,key))
+
 (provide 'pgg-def)
 
 ;;; pgg-def.el ends here