X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b6bd159922608fa474026837771d63bf7eadcf97..382936d1460c215c93fd2d8b9ae15b118fd1e90c:/lisp/files-x.el

diff --git a/lisp/files-x.el b/lisp/files-x.el
index a6320b32e5..0ba245d423 100644
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -1,6 +1,6 @@
 ;;; files-x.el --- extended file handling commands
 
-;; Copyright (C) 2009-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2013 Free Software Foundation, Inc.
 
 ;; Author: Juri Linkov <juri@jurta.org>
 ;; Maintainer: FSF
@@ -49,7 +49,7 @@ Intended to be used in the `interactive' spec of
 	     (format "%s: " prompt))
 	   obarray
 	   (lambda (sym)
-	     (or (user-variable-p sym)
+	     (or (custom-variable-p sym)
                  (get sym 'safe-local-variable)
 		 (memq sym '(mode eval coding unibyte))))
 	   nil nil nil default nil))
@@ -149,7 +149,7 @@ from the Local Variables list ignoring the input argument VALUE."
 
 	(goto-char (point-max))
 	(let ((comment-style 'plain)
-	      (comment-start (or comment-start ";;; ")))
+	      (comment-start (or comment-start ";; ")))
 	  (comment-region
 	   (prog1 (setq beg (point))
 	     (insert "\nLocal Variables:\nEnd:\n"))