From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 9 Sep 2008 14:00:58 +0000 (+0000)
Subject: * ido.el (ido-unload-function): New function.
X-Git-Tag: emacs-pretest-23.0.90~2943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e3e159bdd5e9434f93b9d5b8d05b3eb54e8fe43;p=emacs.git

* ido.el (ido-unload-function): New function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 281d334416d..b40dbf7a27c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-09  Juanma Barranquero  <lekktu@gmail.com>
+
+	* ido.el (ido-unload-function): New function.
+
 2008-09-08  Juanma Barranquero  <lekktu@gmail.com>
 
 	* ido.el (ido-file-internal): Fix typo in prompt.
diff --git a/lisp/ido.el b/lisp/ido.el
index 7a45949f259..7d28b101d35 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -4658,6 +4658,13 @@ DEF, if non-nil, is the default value."
 	(ido-choice-list choices))
     (ido-read-internal 'list prompt hist def require-match initial-input)))
 
+(defun ido-unload-function ()
+  "Unload the Ido library."
+  (ido-mode -1)
+  (setq minor-mode-map-alist (assq-delete-all 'ido-mode minor-mode-map-alist))
+  ;; continue standard unloading
+  nil)
+
 (provide 'ido)
 
 ;; arch-tag: b63a3500-1735-41bd-8a01-05373f0864da