diff lisp/comint/comint.el @ 48:56c54cf7c5b6 r19-16b90

Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents d620409f5eb8
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/comint/comint.el	Mon Aug 13 08:55:32 2007 +0200
+++ b/lisp/comint/comint.el	Mon Aug 13 08:56:04 2007 +0200
@@ -1034,7 +1034,7 @@
 Returns t if successful."
   (interactive)
   (if (and comint-input-autoexpand
-	   (string-match "[!^]" (funcall comint-get-old-input))
+	   (string-match "!\\|^\\^" (funcall comint-get-old-input))
 	   (save-excursion (beginning-of-line)
 			   (looking-at comint-prompt-regexp)))
       ;; Looks like there might be history references in the command.