[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2d93d0d: * lisp/ido.el (ido-everywhere): Use add-fu
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 2d93d0d: * lisp/ido.el (ido-everywhere): Use add-function. |
Date: |
Wed, 26 Apr 2017 10:03:22 -0400 (EDT) |
branch: master
commit 2d93d0d5bbe597972a715f7a02ddd039dc17da93
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/ido.el (ido-everywhere): Use add-function.
---
lisp/ido.el | 16 ++++------------
1 file changed, 4 insertions(+), 12 deletions(-)
diff --git a/lisp/ido.el b/lisp/ido.el
index 318f2fe..1393d3b 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -1582,19 +1582,11 @@ positive, and disable it otherwise. If called from
Lisp,
enable the mode if ARG is omitted or nil."
:global t
:group 'ido
- (when (get 'ido-everywhere 'file)
- (setq read-file-name-function (car (get 'ido-everywhere 'file)))
- (put 'ido-everywhere 'file nil))
- (when (get 'ido-everywhere 'buffer)
- (setq read-buffer-function (car (get 'ido-everywhere 'buffer)))
- (put 'ido-everywhere 'buffer nil))
+ (remove-function read-file-name-function #'ido-read-file-name)
+ (remove-function read-buffer-function #'ido-read-buffer)
(when ido-everywhere
- (when (memq ido-mode '(both file))
- (put 'ido-everywhere 'file (cons read-file-name-function nil))
- (setq read-file-name-function #'ido-read-file-name))
- (when (memq ido-mode '(both buffer))
- (put 'ido-everywhere 'buffer (cons read-buffer-function nil))
- (setq read-buffer-function #'ido-read-buffer))))
+ (add-function :override read-file-name-function #'ido-read-file-name)
+ (add-function :override read-buffer-function #'ido-read-buffer)))
(defvar ido-minor-mode-map-entry nil)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2d93d0d: * lisp/ido.el (ido-everywhere): Use add-function.,
Stefan Monnier <=