[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ido.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ido.el |
Date: |
Fri, 21 Mar 2003 20:21:09 -0500 |
Index: emacs/lisp/ido.el
diff -c emacs/lisp/ido.el:1.30 emacs/lisp/ido.el:1.31
*** emacs/lisp/ido.el:1.30 Wed Feb 5 17:04:02 2003
--- emacs/lisp/ido.el Fri Mar 21 20:21:09 2003
***************
*** 1219,1233 ****
(defvar ido-minor-mode-map-entry nil)
;;;###autoload
! (defun ido-mode (&optional arg nobind)
"Toggle ido speed-ups on or off.
With ARG, turn ido speed-up on if arg is positive, off otherwise.
! If second argument NOBIND is non-nil, no keys are rebound; otherwise,
! turning on ido-mode will modify the default keybindings for the
! find-file and switch-to-buffer families of commands to the ido
! versions of these functions.
! However, if second arg equals 'files, bind only for files, or if it
! equals 'buffers, bind only for buffers.
This function also adds a hook to the minibuffer."
(interactive "P")
(setq ido-mode
--- 1219,1232 ----
(defvar ido-minor-mode-map-entry nil)
;;;###autoload
! (defun ido-mode (&optional arg)
"Toggle ido speed-ups on or off.
With ARG, turn ido speed-up on if arg is positive, off otherwise.
! Turning on ido-mode will remap (via a minor-mode keymap) the default
! keybindings for the `find-file' and `switch-to-buffer' families of
! commands to the ido versions of these functions.
! However, if ARG arg equals 'files, remap only commands for files, or
! if it equals 'buffers, remap only commands for buffer switching.
This function also adds a hook to the minibuffer."
(interactive "P")
(setq ido-mode
***************
*** 1326,1331 ****
--- 1325,1331 ----
(define-key map "\d" 'ido-delete-backward-updir)
(define-key map [(meta backspace)] 'ido-delete-backward-word-updir)
(define-key map [(control backspace)] 'ido-up-directory)
+ (define-key map "\C-l" 'ido-reread-directory)
(define-key map [(meta ?b)] 'ido-next-work-file)
(define-key map [(meta ?d)] 'ido-wide-find-dir)
(define-key map [(meta ?f)] 'ido-wide-find-file)
***************
*** 1340,1346 ****
(when (eq ido-cur-item 'file)
(define-key map "\C-k" 'ido-delete-file-at-head)
(define-key map "\C-o" 'ido-copy-current-word)
- (define-key map "\C-l" 'ido-reread-directory)
(define-key map "\C-w" 'ido-copy-current-file-name)
(define-key map [(meta ?l)] 'ido-toggle-literal)
(define-key map "\C-v" 'ido-toggle-vc)
--- 1340,1345 ----
***************
*** 2253,2259 ****
"Prompt for FILE to search for using find, starting from current directory."
(interactive)
(unless file
! (setq file (read-string (concat "Wide find file: " ido-current-directory)
ido-text)))
(when (> (length file) 0)
(setq ido-use-merged-list t ido-try-merged-list 'wide)
(setq ido-exit 'refresh)
--- 2252,2260 ----
"Prompt for FILE to search for using find, starting from current directory."
(interactive)
(unless file
! (let ((enable-recursive-minibuffers t))
! (setq file
! (read-string (concat "Wide find file: " ido-current-directory)
ido-text))))
(when (> (length file) 0)
(setq ido-use-merged-list t ido-try-merged-list 'wide)
(setq ido-exit 'refresh)
***************
*** 2265,2271 ****
"Prompt for DIR to search for using find, starting from current directory."
(interactive)
(unless dir
! (setq dir (read-string (concat "Wide find directory: "
ido-current-directory) ido-text)))
(when (> (length dir) 0)
(setq ido-use-merged-list t ido-try-merged-list 'wide)
(setq ido-exit 'refresh)
--- 2266,2274 ----
"Prompt for DIR to search for using find, starting from current directory."
(interactive)
(unless dir
! (let ((enable-recursive-minibuffers t))
! (setq dir
! (read-string (concat "Wide find directory: " ido-current-directory)
ido-text))))
(when (> (length dir) 0)
(setq ido-use-merged-list t ido-try-merged-list 'wide)
(setq ido-exit 'refresh)
***************
*** 2277,2283 ****
"Prompt for DIR to create in current directory."
(interactive)
(unless dir
! (setq dir (read-string (concat "Make directory: " ido-current-directory)
ido-text)))
(when (> (length dir) 0)
(setq dir (concat ido-current-directory dir))
(unless (file-exists-p dir)
--- 2280,2288 ----
"Prompt for DIR to create in current directory."
(interactive)
(unless dir
! (let ((enable-recursive-minibuffers t))
! (setq dir
! (read-string (concat "Make directory: " ido-current-directory)
ido-text))))
(when (> (length dir) 0)
(setq dir (concat ido-current-directory dir))
(unless (file-exists-p dir)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/ido.el,
Kim F. Storm <=