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

patch: comint advice



-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

I think my patch will solve two issues:
1. New text isn't being read correctly after the buffer hits comint-buffer-maximum-size lines.
2. If comint-prompt-read-only is t, the text properties can't be added unless
inhibit-read-only is t.

I got the comint-last-output-start variable from a describe-variable on
comint-output-filter-functions.

Index: emacspeak-advice.el
===================================================================
- --- emacspeak-advice.el	(revision 5932)
+++ emacspeak-advice.el	(working copy)
@@ -999,7 +999,7 @@
 (defadvice comint-output-filter (around emacspeak pre act)
   "Make comint speak its output."
     (set-buffer (process-buffer (ad-get-arg 0)))
- -    (let ((prior (point ))
+    (let ((inhibit-read-only t)
           (monitor emacspeak-comint-output-monitor)
           (dtk-stop-immediately nil))
       ad-do-it
@@ -1019,7 +1019,7 @@
                       (get-buffer-window (process-buffer (ad-get-arg 0))))))
         (setq emacspeak-speak-comint-output nil)
         (condition-case nil
- -            (emacspeak-speak-region prior (point ))
+            (emacspeak-speak-region comint-last-output-start (point ))
           (error (emacspeak-auditory-icon 'scroll)
                  (dtk-stop ))))
       ad-return-value))
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)

iEYEARECAAYFAkjU91YACgkQTsjaYASMWKTYgQCdFT43mX5ATLuCsI5mHQUV8nGA
NwIAn3vIzffYyv4wqhhpHmNua1i2MEO+
=+eMI
-----END PGP SIGNATURE-----

-----------------------------------------------------------------------------
To unsubscribe from the emacspeak list or change your address on the
emacspeak list send mail to "emacspeak-request@cs.vassar.edu" with a
subject of "unsubscribe" or "help"



If you have questions about this archive or had problems using it, please send mail to:

priestdo@cs.vassar.edu No Soliciting!

Emacspeak List Archive | 2007 | 2006 | 2005 | 2004 | 2003 | 2002 | 2001 | 2000 | 1999 | 1998 | Pre 1998

Emacspeak Files | Emacspeak Blog | Search the archive