aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2017-11-07 20:45:58 -0500
committerStefan Monnier2017-11-07 20:45:58 -0500
commit83dc3f0e9b518e45bcfb0aaebcc706f79622f157 (patch)
tree92c3381a08a09e529e0c9514a4b873610950194b
parent48f149b40b7b2557ab45ec22f56304d3fbb3bf73 (diff)
downloademacs-83dc3f0e9b518e45bcfb0aaebcc706f79622f157.tar.gz
emacs-83dc3f0e9b518e45bcfb0aaebcc706f79622f157.zip
* lisp/net/tramp-cmds.el, lisp/allout.el: Avoid custom-set-variables
* lisp/net/tramp-cmds.el (tramp-change-syntax): * lisp/allout.el (allout-init): Avoid custom-set-variables.
-rw-r--r--lisp/allout.el2
-rw-r--r--lisp/cus-edit.el2
-rw-r--r--lisp/net/tramp-cmds.el2
-rw-r--r--lisp/net/tramp.el4
4 files changed, 5 insertions, 5 deletions
diff --git a/lisp/allout.el b/lisp/allout.el
index 15b7b3a8ac5..9e83a2fb2c8 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -1687,7 +1687,7 @@ from what it did before, for backwards compatibility.
1687MODE is the activation mode - see `allout-auto-activation' for 1687MODE is the activation mode - see `allout-auto-activation' for
1688valid values." 1688valid values."
1689 (declare (obsolete allout-auto-activation "23.3")) 1689 (declare (obsolete allout-auto-activation "23.3"))
1690 (custom-set-variables (list 'allout-auto-activation (format "%s" mode))) 1690 (customize-set-variable 'allout-auto-activation (format "%s" mode))
1691 (format "%s" mode)) 1691 (format "%s" mode))
1692 1692
1693;;;_ > allout-setup-menubar () 1693;;;_ > allout-setup-menubar ()
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index a87783850a3..edf3545cadd 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -986,7 +986,7 @@ If given a prefix (or a COMMENT argument), also prompt for a comment."
986 current-prefix-arg)) 986 current-prefix-arg))
987 (custom-load-symbol variable) 987 (custom-load-symbol variable)
988 (custom-push-theme 'theme-value variable 'user 'set (custom-quote value)) 988 (custom-push-theme 'theme-value variable 'user 'set (custom-quote value))
989 (funcall (or (get variable 'custom-set) 'set-default) variable value) 989 (funcall (or (get variable 'custom-set) #'set-default) variable value)
990 (put variable 'customized-value (list (custom-quote value))) 990 (put variable 'customized-value (list (custom-quote value)))
991 (cond ((string= comment "") 991 (cond ((string= comment "")
992 (put variable 'variable-comment nil) 992 (put variable 'variable-comment nil)
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index 78ef1a3ef40..37a6521680b 100644
--- a/lisp/net/tramp-cmds.el
+++ b/lisp/net/tramp-cmds.el
@@ -49,7 +49,7 @@ SYNTAX can be one of the symbols `default' (default),
49 (unless (string-equal input "") 49 (unless (string-equal input "")
50 (list (intern input))))) 50 (list (intern input)))))
51 (when syntax 51 (when syntax
52 (custom-set-variables `(tramp-syntax ',syntax)))) 52 (customize-set-variable 'tramp-syntax syntax)))
53 53
54(defun tramp-list-tramp-buffers () 54(defun tramp-list-tramp-buffers ()
55 "Return a list of all Tramp connection buffers." 55 "Return a list of all Tramp connection buffers."
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index e300b3a58ed..a23da848112 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -670,8 +670,8 @@ It can have the following values:
670 `simplified' -- Ange-FTP like syntax 670 `simplified' -- Ange-FTP like syntax
671 `separate' -- Syntax as defined for XEmacs originally 671 `separate' -- Syntax as defined for XEmacs originally
672 672
673Do not change the value by `setq', it must be changed only by 673Do not change the value by `setq', it must be changed only via
674`custom-set-variables'. See also `tramp-change-syntax'." 674Customize. See also `tramp-change-syntax'."
675 :group 'tramp 675 :group 'tramp
676 :version "26.1" 676 :version "26.1"
677 :package-version '(Tramp . "2.3.3") 677 :package-version '(Tramp . "2.3.3")