comparison lisp/files.el @ 13737:3902b2781a8f

(set-auto-mode): Recognize `#!/bin/env INTERPRETER' hack.

13736:4e7c5362c9bd

		  (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 "#! *\\([^ \t\n]+\\)")
			     (buffer-substring (match-beginning 1)
					       (match-end 1))
			   "")))
		      elt)
		  ;; Map interpreter name to a mode.
		  (setq elt (assoc (file-name-nondirectory interpreter)
				   interpreter-mode-alist))

13737:3902b2781a8f

		  (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.
		;; As a special case, allow for things like "#!/bin/env perl",
		;; which finds the interpreter anywhere in $PATH.
		(let ((interpreter
		       (save-excursion
			 (goto-char (point-min))
			 (if (looking-at "#! *\\([^ \t\n]*/bin/env +\\)?\\([^ \t\n]+\\)")
			     (buffer-substring (match-beginning 2)
					       (match-end 2))
			   "")))
		      elt)
		  ;; Map interpreter name to a mode.
		  (setq elt (assoc (file-name-nondirectory interpreter)
				   interpreter-mode-alist))