Revert last commit.

Define `beginning-of-visual-line' in lpath.el instead.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a86855..5f20942 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,6 @@
 2013-11-20  David Engster  <deng@randomsample.de>
 
-       * message.el (message-beginning-of-line): Fix XEmacs warning for last
-       change.
+       * lpath.el: Fix XEmacs warning for `beginning-of-visual-line'.
 
 2013-11-20  Dave Goldberg  <david.goldberg6@verizon.net>
 

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 504a6f4..2585214 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -79,7 +79,8 @@
      select-safe-coding-system set-network-process-option shr-insert-document
      sort-coding-systems term-char-mode term-mode track-mouse ucs-to-char
      url-generic-parse-url url-insert-file-contents vcard-pretty-print
-     w3-parse-buffer w3m-detect-meta-charset w3m-region window-edges))
+     w3-parse-buffer w3m-detect-meta-charset w3m-region window-edges
+     beginning-of-visual-line))
   (maybe-bind
    '(adaptive-fill-first-line-regexp
      buffer-display-table buffer-save-without-query completion-styles

diff --git a/lisp/message.el b/lisp/message.el
index e9a069d..6e1e964 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6344,8 +6344,7 @@ between beginning of field and beginning of line."
        (goto-char
         (if (and eoh (or (< eoh here) (= bol here)))
             eoh bol)))
-    (if (and (not (featurep 'xemacs))
-            (boundp 'visual-line-mode) visual-line-mode)
+    (if (and (boundp 'visual-line-mode) visual-line-mode)
        (beginning-of-visual-line n)
       (beginning-of-line n))))