Lines Matching +refs:file +refs:modes
11 ;; This file is part of GNU Emacs.
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
59 (defcustom info-lookup-file-name-alist
61 "Alist of file names handled specially.
66 If a file name matches REGEXP, then use help mode MODE instead of the
94 INFO-NODE is the name (including file name part) of an Info index.
108 OTHER-MODES is a list of cross references to other help modes.")
128 (defsubst info-lookup->other-modes (topic mode)
138 `:doc-spec', `:parse-rule', or `:other-modes'.
154 parse-rule other-modes keyword value)
179 ((eq keyword :other-modes)
180 (setq other-modes value))
184 (let* ((data (list regexp ignore-case doc-spec parse-rule other-modes))
207 REFER-MODES is a list of other help modes to use.")
229 (defun info-lookup->refer-modes (topic mode)
234 (defun info-lookup->all-modes (topic mode)
235 (cons mode (info-lookup->refer-modes topic mode)))
237 (defun info-lookup-quick-all-modes (topic mode)
238 (cons mode (info-lookup->other-modes topic mode)))
249 ;;;###autoload (put 'info-lookup-symbol 'info-file "emacs")
263 ;;;###autoload (put 'info-lookup-file 'info-file "emacs")
265 (defun info-lookup-file (file &optional mode)
266 "Display the documentation of a file.
268 In the minibuffer, use M-n to yank the default file name
270 The default file name is the one found at point.
272 With prefix arg a query for the file help mode is offered."
274 (info-lookup-interactive-arguments 'file current-prefix-arg))
275 (info-lookup 'file file mode))
297 (when (and (not info-lookup-mode) (buffer-file-name))
298 (let ((file-name (file-name-nondirectory (buffer-file-name)))
299 (file-name-alist info-lookup-file-name-alist))
300 (while (and (not info-lookup-mode) file-name-alist)
301 (when (string-match (caar file-name-alist) file-name)
302 (setq info-lookup-mode (cdar file-name-alist)))
303 (setq file-name-alist (cdr file-name-alist)))))
329 (modes (info-lookup->all-modes topic mode))
348 (while (and (not found) modes)
349 (setq doc-spec (info-lookup->doc-spec topic (car modes)))
376 (info-lookup->ignore-case topic (car modes)))
397 (setq modes (cdr modes)))
412 (let (cell data (initialized 0) completions refer-modes)
416 ;; But refer only to non-void modes.
417 (dolist (arg (info-lookup->other-modes topic mode))
421 (setq refer-modes (cons arg refer-modes))))
422 (setq refer-modes (nreverse refer-modes))
431 refer-modes))))
435 data (list initialized completions refer-modes))
501 Try all related modes applicable to TOPIC and MODE.
503 (let ((modes (info-lookup->all-modes topic mode))
505 (while (and (not guess) modes)
506 (setq guess (info-lookup-guess-default* topic (car modes))
507 modes (cdr modes)))
624 (defun info-complete-file (&optional mode)
625 "Perform completion on file preceding point."
627 (info-complete 'file
630 'file (info-lookup-select-mode))
632 (info-lookup-change-mode 'file)))))
640 (let ((modes (info-lookup-quick-all-modes topic mode))
643 (while (and (not try) modes)
644 (setq mode (car modes)
645 modes (cdr modes)
675 ;;; Initialize some common modes.
698 :mode 'c-mode :topic 'file
708 :other-modes '(c-mode))
718 :other-modes '(automake-mode))
774 :other-modes '(m4-mode))
826 :other-modes '(perl-mode))
855 :other-modes '(emacs-lisp-mode))
861 :other-modes '(emacs-lisp-mode))
897 :other-modes '(maxima-mode))
966 :other-modes '(emacs-lisp-mode))
971 :other-modes '(emacs-lisp-mode))