Fix more XEmacs issues.

darcs-hash:20060702020302-1bfb2-ce8e5060cf1f7db0cf52e40d711d16e621f3968c.gz

1 files changed, 10 insertions, 0 deletions

diff --git a/emms.el b/emms.el
index 80dc3a1..10c4909 100644
--- a/emms.el
+++ b/emms.el
@@ -472,6 +472,16 @@ whenever possible."
       (setq next (cdr ptr))))
   seq)
 
+(defun emms-move-beginning-of-line (arg)
+  "Move point to beginning of current line as displayed.
+If there's an image in the line, this disregards newlines
+which are part of the text that the image rests on."
+  (if (fboundp 'move-beginning-of-line)
+      (move-beginning-of-line arg)
+    (if (numberp arg)
+        (forward-line (1- arg))
+      (forward-line 0))))
+
 
 ;;; Convenient macros