-\f
-;;; Info-lookup minor mode.
-
-(defvar info-lookup-minor-mode nil
- "Non-`nil' enables Info-lookup mode.")
-(make-variable-buffer-local 'info-lookup-minor-mode)
-
-(defvar info-lookup-minor-mode-string " Info"
- "Indicator included in the mode line when in Info-lookup mode.")
-
-(or (assq 'info-lookup-minor-mode minor-mode-alist)
- (setq minor-mode-alist (cons '(info-lookup-minor-mode
- info-lookup-minor-mode-string)
- minor-mode-alist)))
-
-(defvar info-lookup-minor-mode-map (make-sparse-keymap)
- "Minor mode map for Info-lookup mode.")
-
-(or (assq 'info-lookup-minor-mode minor-mode-map-alist)
- (setq minor-mode-map-alist (cons (cons 'info-lookup-minor-mode
- info-lookup-minor-mode-map)
- minor-mode-map-alist)))
-
-;;;### autoload
-(defun info-lookup-minor-mode (&optional arg)
- "Minor mode for looking up the documentation of a symbol or file.
-Special commands:
-
-\\{info-lookup-minor-mode-map}"
- (interactive "P")
- (setq info-lookup-minor-mode (if (null arg)
- (not info-lookup-minor-mode)
- (> (prefix-numeric-value arg) 0)))
- (set-buffer-modified-p (buffer-modified-p)))
-
-(define-key info-lookup-minor-mode-map
- "\C-c\C-hf" 'info-lookup-symbol) ; Describe function.
-(define-key info-lookup-minor-mode-map
- "\C-c\C-hv" 'info-lookup-symbol) ; Describe variable.
-(define-key info-lookup-minor-mode-map
- "\C-c\C-ht" 'info-lookup-symbol) ; Describe type.
-(define-key info-lookup-minor-mode-map
- "\C-c\C-hp" 'info-lookup-file) ; Describe program.
-(define-key info-lookup-minor-mode-map
- "\C-c\C-if" 'info-complete-symbol) ; Complete function.
-(define-key info-lookup-minor-mode-map
- "\C-c\C-iv" 'info-complete-symbol) ; Complete variable.
-(define-key info-lookup-minor-mode-map
- "\C-c\C-it" 'info-complete-symbol) ; Complete type.
-(define-key info-lookup-minor-mode-map
- "\C-c\C-ip" 'info-complete-file) ; Complete program.
-
-;;;### autoload
-(defun turn-on-info-lookup ()
- "Unconditionally turn on Info-lookup mode."
- (info-lookup-minor-mode 1))
-