comparison lisp/files.el @ 5956:586a37656a31

(interpreter-mode-alist): New variable. (set-auto-mode): Use that for chosing a mode.

5955:459bb5807c0b

Visiting a file whose name matches REGEXP causes FUNCTION to be called.
If the element has the form (REGEXP FUNCTION), then after calling
FUNCTION, we delete the suffix that matched REGEXP and search the list
again for another match.")

(defconst inhibit-local-variables-regexps '("\\.tar$")
  "List of regexps; if one matches a file name, don't look for local vars.")

(defvar user-init-file
  "" ; set by command-line

				  name (substring name 0 (match-beginning 0))
				  keep-going t))
			(setq mode (cdr (car alist))
			      keep-going nil)))
		  (setq alist (cdr alist)))
		(if mode (funcall mode)))))))))

(defun hack-local-variables-prop-line ()
  ;; Set local variables specified in the -*- line.
  ;; Ignore any specification for `mode:';
  ;; set-auto-mode should already have handled that.

5956:586a37656a31

Visiting a file whose name matches REGEXP causes FUNCTION to be called.
If the element has the form (REGEXP FUNCTION), then after calling
FUNCTION, we delete the suffix that matched REGEXP and search the list
again for another match.")

(defconst interpreter-mode-alist
  '(("perl" . perl-mode)
    ("scope" . tcl-mode)
    ("wish" . tcl-mode)
    ("shell" . tcl-mode)
    ("form" . tcl-mode)
    ("tcl" . tcl-mode))
  "Alist mapping interpreter names to major modes.
This alist applies to files whose first line starts with `#!'.
Each element looks like (INTERPRETER . MODE).
The car of each element is compared with
the name of the interpreter specified in the first line.
If it matches, mode MODE is selected.")

(defconst inhibit-local-variables-regexps '("\\.tar$")
  "List of regexps; if one matches a file name, don't look for local vars.")

(defvar user-init-file
  "" ; set by command-line

				  name (substring name 0 (match-beginning 0))
				  keep-going t))
			(setq mode (cdr (car alist))
			      keep-going nil)))
		  (setq alist (cdr alist)))
		(if mode
		    (funcall mode)
		  ;; If we can't deduce a mode from the file name,
		  ;; look for an interpreter specified in the first line.
		  (let ((interpreter
			 (save-excursion
			   (goto-char (point-min))
			   (if (looking-at "#! *")
			       (progn
				 (goto-char (match-end 0))
				 (buffer-substring (point)
						   (progn (end-of-line) (point))))
			     "")))
			elt)
		    ;; Map interpreter name to a mode.
		    (setq elt (assoc (file-name-nondirectory interpreter)
				     interpreter-mode-alist))
		    (if elt
			(funcall (cdr elt))))))))))))

(defun hack-local-variables-prop-line ()
  ;; Set local variables specified in the -*- line.
  ;; Ignore any specification for `mode:';
  ;; set-auto-mode should already have handled that.