[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Search]

A Quick Fix to EMacspeak-jabber.el



Hi,
I noticed that when I do emacspeak-jabber-chat-speak-previous-message, if I’m not at the very beginning of the line (and after the `jabber-prompt` field), the current message gets spoken. I would expect that the function would read the previous message, no matter where I am in the text of the current message.
So, I did a simple fix – as always, I might have done something wrong, so I would love to know if there’s a better way to do this.
diff --git a/lisp/emacspeak-jabber.el b/lisp/emacspeak-jabber.el
index c724f2af3..cadf65784 100644
--- a/lisp/emacspeak-jabber.el
+++ b/lisp/emacspeak-jabber.el
@@ -254,6 +254,7 @@ the kill ring as well."
   "Move backward to and speak the previous message in this chat session."
   (interactive)
   (cl-assert (eq major-mode 'jabber-chat-mode) nil "Not in a Jabber chat buffer.")
+  (move-beginning-of-line 1)
   (goto-char (previous-single-property-change (point) 'face nil  (point-min)))
   (while  (and (not (bobp))
                (or (null (get-text-property (point) 'face))


|All Past Years |Current Year|


If you have questions about this archive or had problems using it, please contact us.

Contact Info Page