emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] Changes to emacs/lisp/comint.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/comint.el
Date: Fri, 04 Apr 2003 01:21:49 -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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]