* ecomplete.el (ecomplete-highlight-match-line): Use

point-at-eol.
(ecomplete-highlight-match-line): Use `highlight', because that
face exists in both Emacs and XEmacs.

* message.el (message-display-abbrev): Use point-at-bol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d6dda57..69b8c1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2006-04-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * ecomplete.el (ecomplete-highlight-match-line): Use
+       point-at-eol. 
+       (ecomplete-highlight-match-line): Use `highlight', because that
+       face exists in both Emacs and XEmacs.
+
+       * message.el (message-display-abbrev): Use point-at-bol.
+
        * mail-source.el: Don't require timer/timer-funcs.
 
        * gnus-async.el: Ditto.

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 1a851e9..194abf2 100644 (file)
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -137,12 +137,12 @@
     (goto-char (point-min))
     (forward-line line)
     (save-restriction
-      (narrow-to-region (point) (line-end-position))
+      (narrow-to-region (point) (point-at-eol))
       (while (not (eobp))
        ;; Put the 'region face on any charactes on this line that
        ;; aren't already highlighted.
        (unless (get-text-property (point) 'face)
-         (put-text-property (point) (1+ (point)) 'face 'region))
+         (put-text-property (point) (1+ (point)) 'face 'highlight))
        (forward-char 1)))
     (buffer-string)))
 

diff --git a/lisp/message.el b/lisp/message.el
index 4cd1252..86a6aa9 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7330,7 +7330,7 @@ From headers in the original article."
 (defun message-display-abbrev (&optional choose)
   "Display the next possible abbrev for the text before point."
   (interactive (list t))
-  (when (and (member (char-after (line-beginning-position)) '(?C ?T ? ))
+  (when (and (member (char-after (point-at-bol)) '(?C ?T ? ))
             (message-point-in-header-p)
             (save-excursion
               (save-restriction