Function: bibtex-generate-url-list-init

bibtex-generate-url-list-init is a byte-compiled function defined in bibtex.el.gz.

Signature

(bibtex-generate-url-list-init &optional LOCAL)

Documentation

Initialize bibtex-font-lock-url-regexp from bibtex-generate-url-list.

Return value of bibtex-font-lock-url-regexp. Call this function when setting bibtex-generate-url-list in elisp code. Use LOCAL non-nil when setting bibtex-generate-url-list buffer-locally.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/bibtex.el.gz
(defun bibtex-generate-url-list-init (&optional local)
  "Initialize `bibtex-font-lock-url-regexp' from `bibtex-generate-url-list'.
Return value of `bibtex-font-lock-url-regexp'.
Call this function when setting `bibtex-generate-url-list' in elisp code.
Use LOCAL non-nil when setting `bibtex-generate-url-list' buffer-locally."
  ;; Assume that field names begin at the beginning of a line.
  (let ((val (concat "^[ \t]*"
                     (regexp-opt (delete-dups
                                  (mapcar #'caar
                                          (with-no-warnings
                                            bibtex-generate-url-list)))
                                 'paren)
                     "[ \t\n]*=[ \t\n]*")))
    (if local
        (setq-local bibtex-font-lock-url-regexp val)
      (setq-default bibtex-font-lock-url-regexp val))
    val))