comparison lisp/files.el @ 69361:b15334da7435

* files.el (hack-local-variables-confirm): Don't prompt for ! if enable-local-variables is set to always query, or there is no savable variable.

69360:e5e4303f8050

  (if noninteractive
      nil
    (let ((name (if buffer-file-name
		    (file-name-nondirectory buffer-file-name)
		  (concat "buffer " (buffer-name))))
	  prompt char)
      (save-window-excursion
	(let ((buf (get-buffer-create "*Local Variables*")))
	  (pop-to-buffer buf)
	  (set (make-local-variable 'cursor-type) nil)

		(insert "The local variables list in " name
			"\ncontains variables that are risky (**).")
	      (insert "A local variables list is specified in " name ".")))
	  (insert "\n\nDo you want to apply it?  You can type
y  -- to apply the local variables list.
n  -- to ignore the local variables list.
!  -- to apply the local variables list, and mark these values (*) as
      safe (in the future, they can be set automatically.)\n\n")
	  (dolist (elt vars)
	    (cond ((member elt unsafe-vars)
		   (insert "  * "))
		  ((member elt risky-vars)
		   (insert " ** "))

		   (insert "    ")))
	    (princ (car elt) buf)
	    (insert " : ")
	    (princ (cdr elt) buf)
	    (insert "\n"))
	  (if (< (line-number-at-pos) (window-body-height))
	      (setq prompt "Please type y, n, or !: ")
	    (goto-char (point-min))
	    (setq prompt "Please type y, n, or !, or C-v to scroll: "))
	  (let ((inhibit-quit t)
		(cursor-in-echo-area t)
		done)
	    (while (not done)
	      (message prompt)
	      (setq char (read-event))
	      (if (numberp char)
		  (if (eq char ?\C-v)
		      (condition-case nil
			  (scroll-up)
			(error (goto-char (point-min))))
		    (setq done (memq (downcase char)
				     '(?! ?y ?n ?\s ?\C-g))))))
	    (if (= char ?\C-g)
		(setq quit-flag nil)))
	  (setq char (downcase char))
	  (when (and (= char ?!) unsafe-vars)
	    (dolist (elt unsafe-vars)
	      (add-to-list 'safe-local-variable-values elt))
	    ;; When this is called from desktop-restore-file-buffer,
	    ;; coding-system-for-read may be non-nil.  Reset it before
	    ;; writing to .emacs.
	    (let ((coding-system-for-read nil))
	      (customize-save-variable
	       'safe-local-variable-values
	       safe-local-variable-values)))
	  (kill-buffer buf)
	  (or (= char ?!)
	      (= char ?\s)
	      (= char ?y)))))))

69361:b15334da7435

  (if noninteractive
      nil
    (let ((name (if buffer-file-name
		    (file-name-nondirectory buffer-file-name)
		  (concat "buffer " (buffer-name))))
	  (offer-save (and (eq enable-local-variables t) unsafe-vars))
	  prompt char)
      (save-window-excursion
	(let ((buf (get-buffer-create "*Local Variables*")))
	  (pop-to-buffer buf)
	  (set (make-local-variable 'cursor-type) nil)

		(insert "The local variables list in " name
			"\ncontains variables that are risky (**).")
	      (insert "A local variables list is specified in " name ".")))
	  (insert "\n\nDo you want to apply it?  You can type
y  -- to apply the local variables list.
n  -- to ignore the local variables list.")
	  (if offer-save
	      (insert "
!  -- to apply the local variables list, and mark these values (*) as
      safe (in the future, they can be set automatically.)\n\n")
	    (insert "\n\n"))
	  (dolist (elt vars)
	    (cond ((member elt unsafe-vars)
		   (insert "  * "))
		  ((member elt risky-vars)
		   (insert " ** "))

		   (insert "    ")))
	    (princ (car elt) buf)
	    (insert " : ")
	    (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))
			    ""
			  ", or C-v to scroll")))
	  (goto-char (point-min))
	  (let ((inhibit-quit t)
		(cursor-in-echo-area t)
		(exit-chars
		 (if offer-save '(?! ?y ?n ?\s ?\C-g) '(?y ?n ?\s ?\C-g)))
		done)
	    (while (not done)
	      (message prompt)
	      (setq char (read-event))
	      (if (numberp char)
		  (if (eq char ?\C-v)
		      (condition-case nil
			  (scroll-up)
			(error (goto-char (point-min))))
		    (setq done (memq (downcase char) exit-chars)))))
	    (if (= char ?\C-g)
		(setq quit-flag nil)))
	  (setq char (downcase char))
	  (when (and offer-save (= char ?!) unsafe-vars)
	    (dolist (elt unsafe-vars)
	      (add-to-list 'safe-local-variable-values elt))
	    ;; When this is called from desktop-restore-file-buffer,
	    ;; coding-system-for-read may be non-nil.  Reset it before
	    ;; writing to .emacs.
	    (if (or custom-file user-init-file)
		(let ((coding-system-for-read nil))
		  (customize-save-variable
		   'safe-local-variable-values
		   safe-local-variable-values))))
	  (kill-buffer buf)
	  (or (= char ?!)
	      (= char ?\s)
	      (= char ?y)))))))