comparison lisp/ido.el @ 111894:d6652a7e443a

That's not how you spell "initialization".

111893:fb9ef71605cf

(defun ido-kill-emacs-hook ()
  ;; ido kill emacs hook
  (ido-save-history))

(defun ido-common-initilization ()
  (ido-init-completion-maps)
  (add-hook 'minibuffer-setup-hook 'ido-minibuffer-setup)
  (add-hook 'choose-completion-string-functions 'ido-choose-completion-string))

(define-minor-mode ido-everywhere

	 (t nil)))

  (ido-everywhere (if ido-everywhere 1 -1))

  (when ido-mode
    (ido-common-initilization)
    (ido-load-history)

    (add-hook 'kill-emacs-hook 'ido-kill-emacs-hook)

    (let ((map (make-sparse-keymap)))

	(ido-directory-nonreadable nil)
	(ido-directory-too-big nil)
	(ido-context-switch-command 'ignore)
	(ido-choice-list choices))
    ;; Initialize ido before invoking ido-read-internal
    (ido-common-initilization)
    (ido-read-internal 'list prompt hist def require-match initial-input)))

(defun ido-unload-function ()
  "Unload the Ido library."
  (ido-mode -1)

111894:d6652a7e443a

(defun ido-kill-emacs-hook ()
  ;; ido kill emacs hook
  (ido-save-history))

(defun ido-common-initialization ()
  (ido-init-completion-maps)
  (add-hook 'minibuffer-setup-hook 'ido-minibuffer-setup)
  (add-hook 'choose-completion-string-functions 'ido-choose-completion-string))

(define-minor-mode ido-everywhere

	 (t nil)))

  (ido-everywhere (if ido-everywhere 1 -1))

  (when ido-mode
    (ido-common-initialization)
    (ido-load-history)

    (add-hook 'kill-emacs-hook 'ido-kill-emacs-hook)

    (let ((map (make-sparse-keymap)))

	(ido-directory-nonreadable nil)
	(ido-directory-too-big nil)
	(ido-context-switch-command 'ignore)
	(ido-choice-list choices))
    ;; Initialize ido before invoking ido-read-internal
    (ido-common-initialization)
    (ido-read-internal 'list prompt hist def require-match initial-input)))

(defun ido-unload-function ()
  "Unload the Ido library."
  (ido-mode -1)