* poe.el (current-fill-column): New emulating function.

[elisp/apel.git] / poe.el

diff --git a/poe.el b/poe.el
index e118c91..767ba23 100644 (file)
--- a/poe.el
+++ b/poe.el
@@ -1557,6 +1557,19 @@ The extension, in a file name, is the part that follows the last `.'."
        filename))))
 \f
 
+;;; @ Miscellanea.
+
+;; Emacs 19.29 and later: (current-fill-column)
+(defun-maybe current-fill-column ()
+  "Return the fill-column to use for this line."
+  fill-column)
+
+;; Emacs 19.29 and later: (current-left-margin)
+(defun-maybe current-left-margin ()
+  "Return the left margin to use for this line."
+  left-margin)
+\f
+
 ;;; @ XEmacs emulation.
 ;;;