[elpa] master 2a00982 215/433: * mmm-mason.el (mmm-mason-end-line, mmm-mason-start-line): Use bolp

[Dmitry Gutov]

branch: master
commit 2a0098212b22d8ecd33c9a515d7b6f50cbf24477
Author: alanshutko <alanshutko>
Commit: alanshutko <alanshutko>

        * mmm-mason.el (mmm-mason-end-line,mmm-mason-start-line): Use bolp
        and eolp.
---
 ChangeLog    | 5 +++++
 mmm-mason.el | 7 +++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1915f72..736658b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-12  Alan Shutko  <a...@acm.org>
+
+       * mmm-mason.el (mmm-mason-end-line,mmm-mason-start-line): Use bolp
+       and eolp.
+
 2001-02-03  Michael Abraham Shulman  <viritril...@users.sourceforge.net>
 
        * mmm-mode.el, mmm-region.el, mmm-vars.el:
diff --git a/mmm-mason.el b/mmm-mason.el
index 27d4ea0..1e4ac81 100644
--- a/mmm-mason.el
+++ b/mmm-mason.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <m...@kurukshetra.cjb.net>
-;; Version: $Id: mmm-mason.el,v 1.11 2001/01/11 01:41:12 mas Exp $
+;; Version: $Id: mmm-mason.el,v 1.12 2001/02/13 11:27:44 alanshutko Exp $
 
 ;;{{{ GPL
 
@@ -152,13 +152,12 @@ Saves the name of the tag matched.")
 ;;{{{ One-line Sections
 
 (defun mmm-mason-start-line ()
-  (if (= (point)
-         (save-excursion (beginning-of-line) (point)))
+  (if (bolp)
       ""
     "\n"))
 
 (defun mmm-mason-end-line ()
-  (if (= (char-after (point)) (string-to-char "\n"))
+  (if (eolp)
       (delete-char 1)))
 
 ;;}}}