From: ueno <ueno>
Date: Sat, 6 Nov 1999 03:21:55 +0000 (+0000)
Subject: * pgg-parse.el (pgg-byte-after): Always pass the first argument
X-Git-Tag: emiko-1_13_7~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d383f9e847f45d06a6d2b90beab7da30cdec7ba;p=elisp%2Fsemi.git

* pgg-parse.el (pgg-byte-after): Always pass the first argument
of `char-after'.
---

diff --git a/pgg-parse.el b/pgg-parse.el
index ef7dbf2..040ae1a 100644
--- a/pgg-parse.el
+++ b/pgg-parse.el
@@ -116,7 +116,7 @@
 	 0))
 
 (defmacro pgg-byte-after (&optional pos)
-  `(char-int (char-after ,pos)))
+  `(char-int (char-after ,(or pos `(point)))))
 
 (defmacro pgg-read-byte ()
   `(char-int (char-after (prog1 (point) (forward-char)))))