Variable: hpath:internal-display-alist

hpath:internal-display-alist is a customizable variable defined in hpath.el.

Value

(("\\.\\(au\\|mp3\\|ogg\\|wav\\)$" . play-sound-file)
 ("\\(\\`\\|/\\)\\(OOBR\\|oobr\\).*\\(-FTR\\|-ftr\\)?\\'" . br-env-browse)
 ("\\.info\\(-[0-9]+\\)?\\(\\.gz\\|\\.Z\\|-z\\)?\\'\\|/\\(info\\|INFO\\)/[^.]+$\\|/\\(info-local\\|INFO-LOCAL\\)/[^.]+$" .
  #[257 "\301\"\203�\302\224\203�\303
\304\302\224#\303\302\225\"P\262
\305
!\204%�\306\307!\262
\310\311!\210\312p!\210\31317�\314
\315\"0\207\210\211\203S�\316
!\203S�\317\320!\203L�\321\320!\210\314
\322\323\324$\207\325\326!\207"
	[hpath:info-suffix string-match 1 substring-no-properties 0 file-name-absolute-p expand-file-name "man/hyperbole.info" require info hpath:display-buffer
			   (error)
			   Info-find-node "Top" file-exists-p get-buffer "*info*" kill-buffer "*" nil t error "Invalid file"]
	6 "\n\n(fn FILE)"])
 ("\\.rdb\\'" . rdb:initialize))

Documentation

Alist for calling special functions to display file types in Emacs.

The alist consists of (FILENAME-REGEXP . EDIT-FUNCTION) elements. See also the function (hpath:get-external-display-alist) for external display program settings.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hpath.el
(defcustom hpath:internal-display-alist
  (delq
   nil
   (list

    ;; Support internal sound when available.
    (if (fboundp 'play-sound-file)
	'("\\.\\(au\\|mp3\\|ogg\\|wav\\)$" . play-sound-file))

    ;; Run the OO-Browser on OOBR or OOBR-FTR Environment files.
    '("\\(\\`\\|/\\)\\(OOBR\\|oobr\\).*\\(-FTR\\|-ftr\\)?\\'" . br-env-browse)

    ;; Display the top node from Info online manuals.
    (cons
     (concat hpath:info-suffix
	     "\\|/\\(info\\|INFO\\)/[^.]+$\\|/\\(info-local\\|INFO-LOCAL\\)/[^.]+$")
     (lambda (file)
       (when (and (string-match hpath:info-suffix file)
		  (match-beginning 1))
	 ;; Removed numbered trailer to get basic filename.
	 (setq file (concat (substring-no-properties file 0 (match-beginning 1))
			    (substring-no-properties file (match-end 1)))))
       ;; Ensure that Info files with non-absolute directories outside of the
       ;; `Info-directory-list' are resolved properly, e.g. "man/hyperbole.info".
       (unless (file-name-absolute-p file)
	 (setq file (expand-file-name "man/hyperbole.info")))
       (require 'info)
       ;; Ensure that *info* buffer is displayed in the right place.
       (hpath:display-buffer (current-buffer))
       (condition-case ()
	   (Info-find-node file "Top")
	 (error (if (and file (file-exists-p file))
		    (progn
		      (if (get-buffer "*info*")
			  (kill-buffer "*info*"))
		      (Info-find-node file "*" nil t))
		  (error "Invalid file"))))))

    '("\\.rdb\\'" . rdb:initialize)))
  "Alist for calling special functions to display file types in Emacs.
The alist consists of (FILENAME-REGEXP . EDIT-FUNCTION) elements.
See also the function (hpath:get-external-display-alist) for
external display program settings."
  :type '(alist :key-type regexp :value-type sexp)
  :group 'hyperbole-commands)