[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/comint.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/comint.el |
Date: |
Fri, 31 Jan 2003 10:14:00 -0500 |
Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.285 emacs/lisp/comint.el:1.286
*** emacs/lisp/comint.el:1.285 Sat Dec 28 16:28:09 2002
--- emacs/lisp/comint.el Fri Jan 31 10:13:59 2003
***************
*** 2536,2542 ****
directory tracking functions.")
(defvar comint-file-name-chars
! (if (memq system-type '(ms-dos windows-nt))
"~/A-Za-z0-9_^$!#%&address@hidden'.,:()-"
"~/A-Za-z0-9+@:_.$#%,={}-")
"String of characters valid in a file name.
--- 2536,2542 ----
directory tracking functions.")
(defvar comint-file-name-chars
! (if (memq system-type '(ms-dos windows-nt cygwin))
"~/A-Za-z0-9_^$!#%&address@hidden'.,:()-"
"~/A-Za-z0-9+@:_.$#%,={}-")
"String of characters valid in a file name.
***************
*** 2661,2667 ****
(defun comint-dynamic-complete-as-filename ()
"Dynamically complete at point as a filename.
See `comint-dynamic-complete-filename'. Returns t if successful."
! (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt)))
(completion-ignored-extensions comint-completion-fignore)
;; If we bind this, it breaks remote directory tracking in rlogin.el.
;; I think it was originally bound to solve file completion problems,
--- 2661,2667 ----
(defun comint-dynamic-complete-as-filename ()
"Dynamically complete at point as a filename.
See `comint-dynamic-complete-filename'. Returns t if successful."
! (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt
cygwin)))
(completion-ignored-extensions comint-completion-fignore)
;; If we bind this, it breaks remote directory tracking in rlogin.el.
;; I think it was originally bound to solve file completion problems,
***************
*** 2750,2756 ****
Returns `listed' if a completion listing was shown.
See also `comint-dynamic-complete-filename'."
! (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt)))
(suffix (cond ((not comint-completion-addsuffix) "")
((not (consp comint-completion-addsuffix)) " ")
(t (cdr comint-completion-addsuffix))))
--- 2750,2756 ----
Returns `listed' if a completion listing was shown.
See also `comint-dynamic-complete-filename'."
! (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt
cygwin)))
(suffix (cond ((not comint-completion-addsuffix) "")
((not (consp comint-completion-addsuffix)) " ")
(t (cdr comint-completion-addsuffix))))
***************
*** 2791,2797 ****
(defun comint-dynamic-list-filename-completions ()
"List in help buffer possible completions of the filename at point."
(interactive)
! (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt)))
;; If we bind this, it breaks remote directory tracking in rlogin.el.
;; I think it was originally bound to solve file completion problems,
;; but subsequent changes may have made this unnecessary. sm.
--- 2791,2797 ----
(defun comint-dynamic-list-filename-completions ()
"List in help buffer possible completions of the filename at point."
(interactive)
! (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt
cygwin)))
;; If we bind this, it breaks remote directory tracking in rlogin.el.
;; I think it was originally bound to solve file completion problems,
;; but subsequent changes may have made this unnecessary. sm.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/comint.el,
Juanma Barranquero <=