emacs: lisp/files.el comparison

comparison lisp/files.el @ 4699:f57fe6dbf4a0

(hack-local-variables-prop-line): Ignore any specification for `mode:', since set-auto-mode has already handled it. (set-auto-mode): Clean up. Handle more than one `mode:' spec in -*-.

author	Richard M. Stallman <rms@gnu.org>
date	Sat, 11 Sep 1993 10:45:25 +0000
parents	f00c973bc8a4
children	97c1e7309a2d

comparison

equal deleted inserted replaced

-:196fac1c1086
+:f57fe6dbf4a0
 section of the file; for that, use `hack-local-variables'.
 If `enable-local-variables' is nil, this function does not check for a
 -*- mode tag."
 ;; Look for -*-MODENAME-*- or -*- ... mode: MODENAME; ... -*-
-(let (beg end mode)
+(let (beg end done)
 (save-excursion
 (goto-char (point-min))
 (skip-chars-forward " \t\n")
-(if (and enable-local-variables
+(and enable-local-variables
-	       ;; Don't look for -*- if this file name matches any
+	   ;; Don't look for -*- if this file name matches any
-	       ;; of the regexps in inhibit-local-variables-regexps.
+	   ;; of the regexps in inhibit-local-variables-regexps.
-	       (let ((temp inhibit-local-variables-regexps))
+	   (let ((temp inhibit-local-variables-regexps))
-		 (while (and temp
+	     (while (and temp
-			     (not (string-match (car temp)
+			 (not (string-match (car temp)
-						buffer-file-name)))
+					    buffer-file-name)))
-		   (setq temp (cdr temp)))
+	       (setq temp (cdr temp)))
-		 (not temp))
+	     (not temp))
-	       (search-forward "-*-" (save-excursion
+	   (search-forward "-*-" (save-excursion
-				       ;; If the file begins with "#!"
+				   ;; If the file begins with "#!"
-				       ;; (exec interpreter magic), look
+				   ;; (exec interpreter magic), look
-				       ;; for mode frobs in the first two
+				   ;; for mode frobs in the first two
-				       ;; lines.  You cannot necessarily
+				   ;; lines.  You cannot necessarily
-				       ;; put them in the first line of
+				   ;; put them in the first line of
-				       ;; such a file without screwing up
+				   ;; such a file without screwing up
-				       ;; the interpreter invocation.
+				   ;; the interpreter invocation.
-				       (end-of-line (and (looking-at "^#!") 2))
+				   (end-of-line (and (looking-at "^#!") 2))
-				       (point)) t)
+				   (point)) t)
-	       (progn
+	   (progn
-		 (skip-chars-forward " \t")
+	     (skip-chars-forward " \t")
-		 (setq beg (point))
+	     (setq beg (point))
-		 (search-forward "-*-"
+	     (search-forward "-*-"
-				 (save-excursion (end-of-line) (point))
+			     (save-excursion (end-of-line) (point))
-				 t))
+			     t))
-	       (progn
+	   (progn
-		 (forward-char -3)
+	     (forward-char -3)
-		 (skip-chars-backward " \t")
+	     (skip-chars-backward " \t")
-		 (setq end (point))
+	     (setq end (point))
-		 (goto-char beg)
+	     (goto-char beg)
-		 (if (search-forward ":" end t)
+	     (if (save-excursion (search-forward ":" end t))
-		     (progn
+		 ;; Find all specifications for the `mode:' variable
-		       (goto-char beg)
+		 ;; and execute hem left to right.
-		       (if (let ((case-fold-search t))
+		 (while (let ((case-fold-search t))
-			     (search-forward "mode:" end t))
+			  (search-forward "mode:" end t))
-			   (progn
+		   (skip-chars-forward " \t")
-			     (skip-chars-forward " \t")
+		   (setq beg (point))
-			     (setq beg (point))
+		   (if (search-forward ";" end t)
-			     (if (search-forward ";" end t)
+		       (forward-char -1)
-				 (forward-char -1)
+		     (goto-char end))
-			       (goto-char end))
+		   (skip-chars-backward " \t")
-			     (skip-chars-backward " \t")
+		   (funcall (intern (concat (downcase (buffer-substring beg (point))) "-mode"))))
-			     (setq mode (buffer-substring beg (point))))))
+	       ;; Simple -*-MODE-*- case.
-		   (setq mode (buffer-substring beg end)))))
+	       (funcall (intern (concat (downcase (buffer-substring beg end)) "-mode"))))
-	  (setq mode (intern (concat (downcase mode) "-mode")))
+	     (setq done t)))
-	(if buffer-file-name
+;; If we didn't find a mode from a -*- line, try using the file name.
-	    (let ((alist auto-mode-alist)
+(if (and (not done) buffer-file-name)
-		  (name buffer-file-name))
+	  (let ((alist auto-mode-alist)
-	      (let ((case-fold-search (eq system-type 'vax-vms)))
+		(name buffer-file-name)
-		;; Remove backup-suffixes from file name.
+		mode)
-		(setq name (file-name-sans-versions name))
+	    (let ((case-fold-search (eq system-type 'vax-vms)))
-		;; Find first matching alist entry.
+	      ;; Remove backup-suffixes from file name.
-		(while (and (not mode) alist)
+	      (setq name (file-name-sans-versions name))
-		  (if (string-match (car (car alist)) name)
+	      ;; Find first matching alist entry.
-		      (setq mode (cdr (car alist))))
+	      (while (and (not mode) alist)
-		  (setq alist (cdr alist))))))))
+		(if (string-match (car (car alist)) name)
-(if mode (funcall mode))))
+		    (setq mode (cdr (car alist))))
+		(setq alist (cdr alist))))
+	    (if mode (funcall mode)))))))
 (defun hack-local-variables-prop-line ()
 ;; Set local variables specified in the -*- line.
-;; Returns t if mode was set.
+;; Ignore any specification for `mode:';
+;; set-auto-mode should already have handled that.
 (save-excursion
 (goto-char (point-min))
 (skip-chars-forward " \t\n\r")
 (let ((result '())
-	  (end (save-excursion (end-of-line) (point)))
+	  (end (save-excursion (end-of-line) (point))))
-	  mode-p)
 ;; Parse the -*- line into the `result' alist.
 (cond ((not (search-forward "-*-" end t))
 	     ;; doesn't have one.
 	     nil)
 	    ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)")
 			    (narrow-to-region (point) end)
 			    (read (current-buffer)))))
 		 (setq result (cons (cons key val) result))
 		 (skip-chars-forward " \t;")))
 	     (setq result (nreverse result))))
-;; Mode is magic.
-(let (mode)
-	(while (setq mode (assq 'mode result))
-	  (setq mode-p t result (delq mode result))
-	  (funcall (intern (concat (downcase (symbol-name (cdr mode)))
-				   "-mode")))))
 (if (and result
 	       (or (eq enable-local-variables t)
 		   (and enable-local-variables
 			(save-window-excursion
 			  (y-or-n-p (format "Set local variables as specified in -*- line of %s? "
 					    (file-name-nondirectory buffer-file-name)))))))
 	  (while result
 	    (let ((key (car (car result)))
 		  (val (cdr (car result))))
-	      ;; 'mode has already been removed from this list.
+	      (or (eq key 'mode)
-	      (hack-one-local-variable key val))
+		  (hack-one-local-variable key val)))
-	    (setq result (cdr result))))
+	    (setq result (cdr result)))))))
-mode-p)))
 (defun hack-local-variables ()
 "Parse and put into effect this buffer's local variables spec."
 (hack-local-variables-prop-line)
 ;; Look for "Local variables:" line in last page.

Mercurial > emacs

comparison lisp/files.el @ 4699:f57fe6dbf4a0