[COMMIT] Preserve match buffer information in #'comint-word

APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/xemacs-base/ChangeLog addition: 2010-08-28 Aidan Kehoe <kehoea(a)parhasard.net&gt; * comint.el (comint-word): Preserve match buffer information in this function, avoiding problems in #'comint-match-partial-file-name described in http://mid.gmane.org/4C728493.70107＠gmail.com . Thank you for the bug report, Raymond Toy! XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/xemacs-base/comint.el Index: xemacs-packages/xemacs-base/comint.el =================================================================== RCS file: /cvsroot/xemacs/XEmacs/packages/xemacs-packages/xemacs-base/comint.el,v retrieving revision 1.22 diff -u -r1.22 comint.el --- xemacs-packages/xemacs-base/comint.el 21 May 2007 18:05:36 -0000 1.22 +++ xemacs-packages/xemacs-base/comint.el 28 Aug 2010 12:05:12 -0000 ＠＠ -2145,7 +2145,8 ＠＠ Word constituents are considered to be those in WORD-CHARS, which is like the inside of a \"[...]\" (see `skip-chars-forward')." (save-excursion - (let ((non-word-chars (concat "[^\\\\" word-chars "]")) (here (point))) + (let ((non-word-chars (concat "[^\\\\" word-chars "]")) + (here (point-marker))) (while (and (re-search-backward non-word-chars nil 'move) ;(memq (char-after (point)) shell-file-name-quote-list) (eq (preceding-char) ?\\)) ＠＠ -2155,7 +2156,7 ＠＠ (forward-char 1)) ;; Set match-data to match the entire string. (if (< (point) here) - (progn (store-match-data (list (point) here)) + (progn (store-match-data (list (point-marker) here)) (match-string 0)))))) (defun comint-substitute-in-file-name (filename) -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/mailman/listinfo/xemacs-patches