changeset 8181:a5c67d37141b

(hack-one-local-variable): Check for root using user-uid.
author Richard M. Stallman <rms@gnu.org>
date Fri, 08 Jul 1994 21:26:56 +0000
parents c98f9acb71e3
children 94f524e0d5cd
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Fri Jul 08 10:31:16 1994 +0000
+++ b/lisp/files.el	Fri Jul 08 21:26:56 1994 +0000
@@ -1182,7 +1182,7 @@
 		      (memq (nth 1 (nth 2 val))
 			    '(lisp-indent-hook)))
 		 ;; Permit eval if not root and user says ok.
-		 (and (not (string= (user-login-name) "root"))
+		 (and (not (zerop (user-uid)))
 		      (or (eq enable-local-eval t)
 			  (and enable-local-eval
 			       (save-window-excursion