diff options
| author | Stefan Monnier | 2017-11-07 20:45:58 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2017-11-07 20:45:58 -0500 |
| commit | 83dc3f0e9b518e45bcfb0aaebcc706f79622f157 (patch) | |
| tree | 92c3381a08a09e529e0c9514a4b873610950194b | |
| parent | 48f149b40b7b2557ab45ec22f56304d3fbb3bf73 (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-cmds.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 4 |
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. | |||
| 1687 | MODE is the activation mode - see `allout-auto-activation' for | 1687 | MODE is the activation mode - see `allout-auto-activation' for |
| 1688 | valid values." | 1688 | valid 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 | ||
| 673 | Do not change the value by `setq', it must be changed only by | 673 | Do not change the value by `setq', it must be changed only via |
| 674 | `custom-set-variables'. See also `tramp-change-syntax'." | 674 | Customize. 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") |