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

[elisp/semi.git] / pgg-parse.el

diff --git a/pgg-parse.el b/pgg-parse.el
index ef7dbf2..040ae1a 100644 (file)
--- 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)))))