(customize-set-value): Rename `var' to `variable' and `val' to `value'.

(customize-save-variable): Rename `var' to `'variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2424d75a37e470f058ba025f70d0da5ef2462da2..59922f2e2dc17f0f9a582a29a393e222c113d523 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-05-12  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+
+       * cus-edit.el (customize-set-value): Rename `var' to `variable'
+       and `val' to `value'.
+       (customize-save-variable): Rename `var' to `'variable.
+
 2002-05-12  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
        * progmodes/fortran.el (fortran-preprocessor-re): New variable.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 54f5614df82fa5e7d53cb7d2d7c864170ad0ddd4..344ffab2d47f9811010e862baba89e575c7a705f 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -748,7 +748,7 @@ it as the third element in the list."
       (list var val))))
 
 ;;;###autoload
-(defun customize-set-value (var val &optional comment)
+(defun customize-set-value (variable value &optional comment)
   "Set VARIABLE to VALUE, and return VALUE.  VALUE is a Lisp object.
 
 If VARIABLE has a `variable-interactive' property, that is used as if
@@ -763,10 +763,10 @@ If given a prefix (or a COMMENT argument), also prompt for a comment."
                                       current-prefix-arg))
    
   (cond ((string= comment "")
-        (put var 'variable-comment nil))
+        (put variable 'variable-comment nil))
        (comment
-        (put var 'variable-comment comment)))
-  (set var val))
+        (put variable 'variable-comment comment)))
+  (set variable value))
 
 ;;;###autoload
 (defun customize-set-variable (variable value &optional comment)
@@ -801,7 +801,7 @@ If given a prefix (or a COMMENT argument), also prompt for a comment."
   value)
 
 ;;;###autoload
-(defun customize-save-variable (var value &optional comment)
+(defun customize-save-variable (variable value &optional comment)
   "Set the default for VARIABLE to VALUE, and save it for future sessions.
 Return VALUE.
 
@@ -821,14 +821,14 @@ If given a prefix (or a COMMENT argument), also prompt for a comment."
   (interactive (custom-prompt-variable "Set and save variable: "
                                       "Set and save value for %s as: "
                                       current-prefix-arg))
-  (funcall (or (get var 'custom-set) 'set-default) var value)
-  (put var 'saved-value (list (custom-quote value)))
+  (funcall (or (get variable 'custom-set) 'set-default) variable value)
+  (put variable 'saved-value (list (custom-quote value)))
   (cond ((string= comment "")
-        (put var 'variable-comment nil)
-        (put var 'saved-variable-comment nil))
+        (put variable 'variable-comment nil)
+        (put variable 'saved-variable-comment nil))
        (comment
-        (put var 'variable-comment comment)
-        (put var 'saved-variable-comment comment)))
+        (put variable 'variable-comment comment)
+        (put variable 'saved-variable-comment comment)))
   (custom-save-all)
   value)