comparison lisp/files.el @ 71555:d9b9f70ec91a

(find-file-noselect-1): Remove unused var assignment. (hack-local-variables-confirm): Print lists of strings as lists of strings rather than lists of symbols. (abbreviate-file-name, hack-local-variables-prop-line): Use match-string. (hack-one-local-variable): Move `make-local-variable' nearer its use. (recover-session-finish): Use line-end-position.

71554:0b31608be4a1

This variable does not affect the use of major modes
specified in a -*- line.")

(defcustom enable-local-eval 'maybe
  "*Control processing of the \"variable\" `eval' in a file's local variables.
The value can be t, nil or something else.
A value of t means obey `eval' variables;
nil means ignore them; anything else means query."
  :type '(choice (const :tag "Obey" t)
		 (const :tag "Ignore" nil)

			   (eq system-type 'windows-nt))
		       (save-match-data
			 (string-match "^[a-zA-`]:/$" filename)))))
	(setq filename
	      (concat "~"
		      (substring filename (match-beginning 1) (match-end 1))
		      (substring filename (match-end 0)))))
    filename))

(defcustom find-file-not-true-dirname-list nil
  "*List of logical names for which visiting shouldn't save the true dirname.

		 (setq logical (substring (file-name-directory filename)
					  0 (match-beginning 0))))
	     (not (member logical find-file-not-true-dirname-list)))
	   (setq buffer-file-name buffer-file-truename))
      (if find-file-visit-truename
	  (setq buffer-file-name
		(setq filename
		      (expand-file-name buffer-file-truename))))
      ;; Set buffer's default directory to that of the file.
      (setq default-directory (file-name-directory buffer-file-name))
      ;; Turn off backup files for certain file names.  Since
      ;; this is a permanent local, the major mode won't eliminate it.
      (and (not (funcall backup-enable-predicate buffer-file-name))

		   (insert " ** "))
		  (t
		   (insert "    ")))
	    (princ (car elt) buf)
	    (insert " : ")
            (if (stringp (cdr elt))
                ;; Make strings with embedded whitespace easier to read.
                (let ((print-escape-newlines t))
                  (prin1 (cdr elt) buf))
              (princ (cdr elt) buf))
	    (insert "\n"))
	  (setq prompt
		(format "Please type %s%s: "
			(if offer-save "y, n, or !" "y or n")
			(if (< (line-number-at-pos) (window-body-height))

		   (error "Malformed -*- line"))
	       (goto-char (match-end 0))
	       ;; There used to be a downcase here,
	       ;; but the manual didn't say so,
	       ;; and people want to set var names that aren't all lc.
	       (let ((key (intern (buffer-substring
				   (match-beginning 1)
				   (match-end 1))))
		     (val (save-restriction
			    (narrow-to-region (point) end)
			    (read (current-buffer)))))
		 ;; It is traditional to ignore
		 ;; case when checking for `mode' in set-auto-mode,

		      ok)))))))

(defun hack-one-local-variable (var val)
  "Set local variable VAR with value VAL."
  (cond ((eq var 'mode)
	 (funcall (intern (concat (downcase (symbol-name val))
				  "-mode"))))
	((eq var 'eval)
	 (save-excursion (eval val)))
	(t (make-local-variable var)
	   ;; Make sure the string has no text properties.
	   ;; Some text properties can get evaluated in various ways,
	   ;; so it is risky to put them on with a local variable list.
	   (if (stringp val)
	       (set-text-properties 0 (length val) nil val))
	   (set var val))))


(defcustom change-major-mode-with-file-name t
  "*Non-nil means \\[write-file] should set the major mode from the file name.
However, the mode will not be changed if

		    ;; auto-save-list file is probably corrupted.
		    (unless (eolp)
		      (setq autofile
			    (buffer-substring-no-properties
			     (point)
			     (save-excursion
			       (end-of-line)
			       (point))))
		      (setq thisfile
			    (expand-file-name
			     (substring
			      (file-name-nondirectory autofile)
			      1 -1)

71555:d9b9f70ec91a

This variable does not affect the use of major modes
specified in a -*- line.")

(defcustom enable-local-eval 'maybe
  "Control processing of the \"variable\" `eval' in a file's local variables.
The value can be t, nil or something else.
A value of t means obey `eval' variables;
nil means ignore them; anything else means query."
  :type '(choice (const :tag "Obey" t)
		 (const :tag "Ignore" nil)

			   (eq system-type 'windows-nt))
		       (save-match-data
			 (string-match "^[a-zA-`]:/$" filename)))))
	(setq filename
	      (concat "~"
		      (match-string 1 filename)
		      (substring filename (match-end 0)))))
    filename))

(defcustom find-file-not-true-dirname-list nil
  "*List of logical names for which visiting shouldn't save the true dirname.

		 (setq logical (substring (file-name-directory filename)
					  0 (match-beginning 0))))
	     (not (member logical find-file-not-true-dirname-list)))
	   (setq buffer-file-name buffer-file-truename))
      (if find-file-visit-truename
	  (setq buffer-file-name (expand-file-name buffer-file-truename)))
      ;; Set buffer's default directory to that of the file.
      (setq default-directory (file-name-directory buffer-file-name))
      ;; Turn off backup files for certain file names.  Since
      ;; this is a permanent local, the major mode won't eliminate it.
      (and (not (funcall backup-enable-predicate buffer-file-name))

		   (insert " ** "))
		  (t
		   (insert "    ")))
	    (princ (car elt) buf)
	    (insert " : ")
            ;; Make strings with embedded whitespace easier to read.
            (let ((print-escape-newlines t))
              (prin1 (cdr elt) buf))
	    (insert "\n"))
	  (setq prompt
		(format "Please type %s%s: "
			(if offer-save "y, n, or !" "y or n")
			(if (< (line-number-at-pos) (window-body-height))

		   (error "Malformed -*- line"))
	       (goto-char (match-end 0))
	       ;; There used to be a downcase here,
	       ;; but the manual didn't say so,
	       ;; and people want to set var names that aren't all lc.
	       (let ((key (intern (match-string 1)))
		     (val (save-restriction
			    (narrow-to-region (point) end)
			    (read (current-buffer)))))
		 ;; It is traditional to ignore
		 ;; case when checking for `mode' in set-auto-mode,

		      ok)))))))

(defun hack-one-local-variable (var val)
  "Set local variable VAR with value VAL."
  (cond ((eq var 'mode)
	 (funcall (intern (concat (downcase (symbol-name val)) "-mode"))))
	((eq var 'eval)
	 (save-excursion (eval val)))
	(t
         ;; Make sure the string has no text properties.
         ;; Some text properties can get evaluated in various ways,
         ;; so it is risky to put them on with a local variable list.
         (if (stringp val)
             (set-text-properties 0 (length val) nil val))
         (set (make-local-variable var) val))))


(defcustom change-major-mode-with-file-name t
  "*Non-nil means \\[write-file] should set the major mode from the file name.
However, the mode will not be changed if

		    ;; auto-save-list file is probably corrupted.
		    (unless (eolp)
		      (setq autofile
			    (buffer-substring-no-properties
			     (point)
			     (line-end-position)))
		      (setq thisfile
			    (expand-file-name
			     (substring
			      (file-name-nondirectory autofile)
			      1 -1)