comparison lisp/files.el @ 90813:e6fdae9180d4

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 698-710) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 216) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-196

90812:6137cc8ddf90

(defvar magic-mode-alist
  `((image-type-auto-detected-p . image-mode)
    ;; The < comes before the groups (but the first) to reduce backtracking.
    ;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff.
    ;; We use [ \t\n] instead of `\\s ' to make regex overflow less likely.
    (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
	     (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\n]*<\\)")))
	(concat "\\(?:<\\?xml[ \t\n]+[^>]*>\\)?[ \t\n]*<"
		comment-re "*"
		"\\(?:!DOCTYPE[ \t\n]+[^>]*>[ \t\n]*<[ \t\n]*" comment-re "*\\)?"
		"[Hh][Tt][Mm][Ll]"))
     . html-mode)
    ;; These two must come after html, because they are more general:
    ("<\\?xml " . xml-mode)
    (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
	     (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\n]*<\\)")))
	(concat "[ \t\n]*<" comment-re "*!DOCTYPE "))
     . sgml-mode)
    ("%!PS" . ps-mode)
    ("# xmcd " . conf-unix-mode))
  "Alist of buffer beginnings vs. corresponding major mode functions.
Each element looks like (REGEXP . FUNCTION) or (MATCH-FUNCTION . FUNCTION).

;;
;; For variables defined in the C source code the declaration should go here:

(mapc (lambda (pair)
	(put (car pair) 'safe-local-variable (cdr pair)))
      '((buffer-read-only                . booleanp) ;; C source code
	(fill-column                     . integerp) ;; C source code
	(indent-tabs-mode                . booleanp) ;; C source code
	(left-margin                     . integerp) ;; C source code
	(no-update-autoloads             . booleanp)
	(tab-width                       . integerp) ;; C source code
	(truncate-lines                  . booleanp))) ;; C source code

(put 'c-set-style 'safe-local-eval-function t)

(defun hack-local-variables-confirm (vars unsafe-vars risky-vars)
  (if noninteractive

90813:e6fdae9180d4

(defvar magic-mode-alist
  `((image-type-auto-detected-p . image-mode)
    ;; The < comes before the groups (but the first) to reduce backtracking.
    ;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff.
    ;; We use [ \t\r\n] instead of `\\s ' to make regex overflow less likely.
    (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
	     (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\r\n]*<\\)")))
	(concat "\\(?:<\\?xml[ \t\r\n]+[^>]*>\\)?[ \t\r\n]*<"
		comment-re "*"
		"\\(?:!DOCTYPE[ \t\r\n]+[^>]*>[ \t\r\n]*<[ \t\r\n]*" comment-re "*\\)?"
		"[Hh][Tt][Mm][Ll]"))
     . html-mode)
    ("<!DOCTYPE[ \t\r\n]+[Hh][Tt][Mm][Ll]" . html-mode)
    ;; These two must come after html, because they are more general:
    ("<\\?xml " . xml-mode)
    (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
	     (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\r\n]*<\\)")))
	(concat "[ \t\r\n]*<" comment-re "*!DOCTYPE "))
     . sgml-mode)
    ("%!PS" . ps-mode)
    ("# xmcd " . conf-unix-mode))
  "Alist of buffer beginnings vs. corresponding major mode functions.
Each element looks like (REGEXP . FUNCTION) or (MATCH-FUNCTION . FUNCTION).

;;
;; For variables defined in the C source code the declaration should go here:

(mapc (lambda (pair)
	(put (car pair) 'safe-local-variable (cdr pair)))
      '((buffer-read-only     . booleanp)   ;; C source code
	(default-directory    . stringp)    ;; C source code
	(fill-column          . integerp)   ;; C source code
	(indent-tabs-mode     . booleanp)   ;; C source code
	(left-margin          . integerp)   ;; C source code
	(no-update-autoloads  . booleanp)
	(tab-width            . integerp)   ;; C source code
	(truncate-lines       . booleanp))) ;; C source code

(put 'c-set-style 'safe-local-eval-function t)

(defun hack-local-variables-confirm (vars unsafe-vars risky-vars)
  (if noninteractive