comparison lisp/files.el @ 63060:1fd49ae230dd

(hack-local-variables-confirm): New arg FLAG-TO-CHECK. (hack-one-local-variable, hack-local-variables) (hack-local-variables-prop-line): Pass that arg. (locate-file-completion): Doc fix.

63059:ac70444b7205

		  (if (memq 'readable predicate) 4 0))))
  (locate-file-internal filename path suffixes predicate))

(defun locate-file-completion (string path-and-suffixes action)
  "Do completion for file names passed to `locate-file'.
PATH-AND-SUFFIXES is a pair of lists (DIRECTORIES . SUFFIXES)."
  (if (file-name-absolute-p string)
      (read-file-name-internal string nil action)
    (let ((names nil)
	  (suffix (concat (regexp-opt (cdr path-and-suffixes) t) "\\'"))
	  (string-dir (file-name-directory string)))

       (skip-chars-backward " \t")
       (setq end (point))
       (goto-char beg)
       end))))

(defun hack-local-variables-confirm (string)
  (or (eq enable-local-variables t)
      (and enable-local-variables
	   (save-window-excursion
	     (condition-case nil
		 (switch-to-buffer (current-buffer))
	       (error
		;; If we fail to switch in the selected window,

      (if mode-only mode-specified
	(if (and result
		 (or mode-only
		     (hack-local-variables-confirm
		      "Set local variables as specified in -*- line of %s? ")))
	    (let ((enable-local-eval enable-local-eval))
	      (while result
		(hack-one-local-variable (car (car result)) (cdr (car result)))
		(setq result (cdr result)))))
	nil))))

      (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move)
      (when (let ((case-fold-search t))
	      (and (search-forward "Local Variables:" nil t)
		   (or mode-only
		       (hack-local-variables-confirm
			"Set local variables as specified at end of %s? "))))
	(skip-chars-forward " \t")
	(let ((enable-local-eval enable-local-eval)
	      ;; suffix is what comes after "local variables:" in its line.
	      (suffix
	       (concat

	 (if (or (and (eq var 'eval)
		      (hack-one-local-variable-eval-safep val))
		 ;; Permit eval if not root and user says ok.
		 (and (not (zerop (user-uid)))
		      (hack-local-variables-confirm
		       "Process `eval' or hook local variables in %s? ")))
	     (if (eq var 'eval)
		 (save-excursion (eval val))
	       (make-local-variable var)
	       (set var val))
	   (message "Ignoring risky spec in the local variables list")))

63060:1fd49ae230dd

		  (if (memq 'readable predicate) 4 0))))
  (locate-file-internal filename path suffixes predicate))

(defun locate-file-completion (string path-and-suffixes action)
  "Do completion for file names passed to `locate-file'.
PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
  (if (file-name-absolute-p string)
      (read-file-name-internal string nil action)
    (let ((names nil)
	  (suffix (concat (regexp-opt (cdr path-and-suffixes) t) "\\'"))
	  (string-dir (file-name-directory string)))

       (skip-chars-backward " \t")
       (setq end (point))
       (goto-char beg)
       end))))

(defun hack-local-variables-confirm (string flag-to-check)
  (or (eq flag-to-check t)
      (and flag-to-check
	   (save-window-excursion
	     (condition-case nil
		 (switch-to-buffer (current-buffer))
	       (error
		;; If we fail to switch in the selected window,

      (if mode-only mode-specified
	(if (and result
		 (or mode-only
		     (hack-local-variables-confirm
		      "Set local variables as specified in -*- line of %s? "
		      enable-local-variables)))
	    (let ((enable-local-eval enable-local-eval))
	      (while result
		(hack-one-local-variable (car (car result)) (cdr (car result)))
		(setq result (cdr result)))))
	nil))))

      (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move)
      (when (let ((case-fold-search t))
	      (and (search-forward "Local Variables:" nil t)
		   (or mode-only
		       (hack-local-variables-confirm
			"Set local variables as specified at end of %s? "
			enable-local-variables))))
	(skip-chars-forward " \t")
	(let ((enable-local-eval enable-local-eval)
	      ;; suffix is what comes after "local variables:" in its line.
	      (suffix
	       (concat

	 (if (or (and (eq var 'eval)
		      (hack-one-local-variable-eval-safep val))
		 ;; Permit eval if not root and user says ok.
		 (and (not (zerop (user-uid)))
		      (hack-local-variables-confirm
		       "Process `eval' or hook local variables in %s? "
		       enable-local-eval)))
	     (if (eq var 'eval)
		 (save-excursion (eval val))
	       (make-local-variable var)
	       (set var val))
	   (message "Ignoring risky spec in the local variables list")))