Browse files

Rename to ido-ubiquitous-mode

I just realized that "define-minor-mode" doesn't append "mode" to the
name of your mode.
  • Loading branch information...
DarwinAwardWinner committed Nov 21, 2011
1 parent 3d21f5e commit 33cc026e16a4a2127616924444e4bd10a3b095ba
Showing with 11 additions and 3 deletions.
  1. +11 −3 ido-ubiquitous.el
@@ -56,7 +56,7 @@
:group 'ido)
(define-minor-mode ido-ubiquitous
(define-minor-mode ido-ubiquitous-mode
"Use `ido-completing-read' instead of `completing-read' almost everywhere.
This mode has no effect unles `ido-mode' is also enabled.
@@ -73,6 +73,13 @@
:global t
:group 'ido-ubiquitous)
(define-obsolete-variable-alias 'ido-ubiquitous
'ido-ubiquitous-mode "0.8")
(define-obsolete-function-alias 'ido-ubiquitous
'ido-ubiquitous-mode "0.8")
(defcustom ido-ubiquitous-command-exceptions '()
"List of commands that should not be affected by `ido-ubiquitous'.
@@ -87,12 +94,13 @@ ido-ubiquitous in non-interactive functions, customize
:type '(repeat (symbol :tag "Command"))
:group 'ido-ubiquitous)
(define-obsolete-variable-alias 'ido-ubiquitous-exceptions
'ido-ubiquitous-command-exceptions "0.4")
(defadvice completing-read (around ido-ubiquitous activate)
(if (or (not ido-mode)
(not ido-ubiquitous)
(not ido-ubiquitous-mode)
(memq this-command ido-ubiquitous-command-exceptions)
;; Avoid infinite recursion from ido calling completing-read
(boundp 'ido-cur-item))
@@ -112,7 +120,7 @@ ido-ubiquitous in non-interactive functions, customize
(format "Disable ido-ubiquitous in %s" func)))
`(defadvice ,func (around disable-ido-ubiquitous activate)
(let (ido-ubiquitous) ad-do-it))))
(let (ido-ubiquitous-mode) ad-do-it))))

0 comments on commit 33cc026

Please sign in to comment.