From afe2cacd997d7d3c680843339177ba4e1b82c652 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sun, 2 Jul 2006 02:03:00 +0000 Subject: Fix more XEmacs issues. darcs-hash:20060702020302-1bfb2-ce8e5060cf1f7db0cf52e40d711d16e621f3968c.gz --- emms.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'emms.el') 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 -- cgit v1.2.3