Lines Matching defs:mode
1 ;;; url-dired.el --- URL Dired minor mode
31 (defvar url-dired-minor-mode-map
38 (defvar url-dired-minor-mode nil
39 "Whether we are in url-dired-minor-mode")
41 (make-variable-buffer-local 'url-dired-minor-mode)
58 (defun url-dired-minor-mode (&optional arg)
59 "Minor mode for directory browsing with Emacs-W3."
63 (setq url-dired-minor-mode (not url-dired-minor-mode)))
65 (setq url-dired-minor-mode nil))
67 (setq url-dired-minor-mode t))))
69 (if (not (fboundp 'add-minor-mode))
70 (defun add-minor-mode (toggle name &optional keymap after toggle-fun)
71 "Add a minor mode to `minor-mode-alist' and `minor-mode-map-alist'.
72 TOGGLE is a symbol which is used as the variable which toggle the minor mode,
75 mode is active, and AFTER is the toggling symbol used for another minor
76 mode. If AFTER is non-nil, then it is used to position the new mode in the
77 minor-mode alists. TOGGLE-FUN specifies an interactive function that
78 is called to toggle the mode on and off; this affects what appens when
79 button2 is pressed on the mode, and when button3 is pressed somewhere
83 Example: (add-minor-mode 'view-minor-mode \" View\" view-mode-map)"
84 (if (not (assq toggle minor-mode-alist))
85 (setq minor-mode-alist (cons (list toggle name) minor-mode-alist)))
86 (if (and keymap (not (assq toggle minor-mode-map-alist)))
87 (setq minor-mode-map-alist (cons (cons toggle keymap)
88 minor-mode-map-alist)))))
90 (add-minor-mode 'url-dired-minor-mode " URL" url-dired-minor-mode-map)
96 (url-dired-minor-mode t))