Attachment 603940 Details for Bug 847698 – Provided (from [2]) upstream patch for v23.4 version

[patch] Provided (from [2]) upstream patch for v23.4 version

local-vars-patch-23.4.patch (text/plain), 1.37 KB, created by Jan Lieskovsky on 2012-08-13 09:56:45 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jan Lieskovsky

Created: 2012-08-13 09:56:45 UTC

Size: 1.37 KB

patch

obsolete

>*** emacs-23.4/lisp/files.el~	2012-08-13 10:50:42.340171173 +0800
>--- emacs-23.4/lisp/files.el	2012-08-13 10:51:12.528172450 +0800
>***************
>*** 2986,2996 ****
>  	      ;; Obey `enable-local-eval'.
>  	      ((eq var 'eval)
>  	       (when enable-local-eval
>! 		 (push elt all-vars)
>! 		 (or (eq enable-local-eval t)
>! 		     (hack-one-local-variable-eval-safep (eval (quote val)))
>! 		     (safe-local-variable-p var val)
>! 		     (push elt unsafe-vars))))
>  	      ;; Ignore duplicates (except `mode') in the present list.
>  	      ((and (assq var all-vars) (not (eq var 'mode))) nil)
>  	      ;; Accept known-safe variables.
>--- 2986,3001 ----
>  	      ;; Obey `enable-local-eval'.
>  	      ((eq var 'eval)
>  	       (when enable-local-eval
>! 		 (let ((safe (or (hack-one-local-variable-eval-safep
>! 				  (eval (quote val)))
>! 				 ;; In case previously marked safe (bug#5636).
>! 				 (safe-local-variable-p var val))))
>! 		   ;; If not safe and e-l-v = :safe, ignore totally.
>! 		   (when (or safe (not (eq enable-local-variables :safe)))
>! 		     (push elt all-vars)
>! 		     (or (eq enable-local-eval t)
>! 			 safe
>! 			 (push elt unsafe-vars))))))
>  	      ;; Ignore duplicates (except `mode') in the present list.
>  	      ((and (assq var all-vars) (not (eq var 'mode))) nil)
>  	      ;; Accept known-safe variables.
>
>Diff finished.  Mon Aug 13 10:53:45 2012

Actions: View | Diff

Attachments on bug 847698: 603940 | 603943