diff options
| author | Kim F. Storm | 2005-08-18 09:29:48 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-08-18 09:29:48 +0000 |
| commit | 9d144e95df5122d76b2fa9774bee973087672167 (patch) | |
| tree | 337890217edbf74f59899fc535b8dbefa650839e | |
| parent | 609550682f926b6ce43e946599dfbf06d9d42dc7 (diff) | |
| download | emacs-9d144e95df5122d76b2fa9774bee973087672167.tar.gz emacs-9d144e95df5122d76b2fa9774bee973087672167.zip | |
(ido-everywhere): Fix defcustom :set function to disable
rather than toggle mode when custom value is nil.
(ido-everywhere): Fix defun doc string.
| -rw-r--r-- | lisp/ido.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index 9b887d1619d..aca5e7e6d72 100644 --- a/lisp/ido.el +++ b/lisp/ido.el | |||
| @@ -367,7 +367,7 @@ use either \\[customize] or the function `ido-mode'." | |||
| 367 | Setting this variable directly does not work. Use `customize' or | 367 | Setting this variable directly does not work. Use `customize' or |
| 368 | call the function `ido-everywhere'." | 368 | call the function `ido-everywhere'." |
| 369 | :set #'(lambda (symbol value) | 369 | :set #'(lambda (symbol value) |
| 370 | (ido-everywhere value)) | 370 | (ido-everywhere (if value 1 -1))) |
| 371 | :initialize 'custom-initialize-default | 371 | :initialize 'custom-initialize-default |
| 372 | :type 'boolean | 372 | :type 'boolean |
| 373 | :group 'ido) | 373 | :group 'ido) |
| @@ -1367,7 +1367,8 @@ This function also adds a hook to the minibuffer." | |||
| 1367 | (define-key map [remap display-buffer] 'ido-display-buffer))))) | 1367 | (define-key map [remap display-buffer] 'ido-display-buffer))))) |
| 1368 | 1368 | ||
| 1369 | (defun ido-everywhere (arg) | 1369 | (defun ido-everywhere (arg) |
| 1370 | "Enable ido everywhere file and directory names are read." | 1370 | "Toggle using ido speed-ups everywhere file and directory names are read. |
| 1371 | With ARG, turn ido speed-up on if arg is positive, off otherwise." | ||
| 1371 | (interactive "P") | 1372 | (interactive "P") |
| 1372 | (setq ido-everywhere (if arg | 1373 | (setq ido-everywhere (if arg |
| 1373 | (> (prefix-numeric-value arg) 0) | 1374 | (> (prefix-numeric-value arg) 0) |