diff options
| author | Jim Porter <jporterbugs@gmail.com> | 2022-10-12 11:28:05 -0700 |
|---|---|---|
| committer | Jim Porter <jporterbugs@gmail.com> | 2022-10-17 18:48:52 -0700 |
| commit | 1beb389e472ab8132b478c9f24dd0ab6b7398670 (patch) | |
| tree | f3744495e8cc7c254ae00adef3046c3d5505abab | |
| parent | f4442d49f6490cb754bad66dd34a182d5eae06d9 (diff) | |
| download | emacs-1beb389e472ab8132b478c9f24dd0ab6b7398670.tar.gz | |
; Remove over-quoting of :application values in connection-local variables
* test/lisp/files-x-tests.el (files-x-test--application)
(files-x-test--another-application):
* doc/lispref/variables.texi (Connection Local Variables): Remove
extra quotes.
| -rw-r--r-- | doc/lispref/variables.texi | 14 | ||||
| -rw-r--r-- | test/lisp/files-x-tests.el | 4 |
2 files changed, 9 insertions, 9 deletions
diff --git a/doc/lispref/variables.texi b/doc/lispref/variables.texi index 1d891618dad..2a06169b21a 100644 --- a/doc/lispref/variables.texi +++ b/doc/lispref/variables.texi @@ -2311,13 +2311,13 @@ always applies. Example: @example @group (connection-local-set-profiles - '(:application 'tramp :protocol "ssh" :machine "localhost") + '(:application tramp :protocol "ssh" :machine "localhost") 'remote-bash 'remote-null-device) @end group @group (connection-local-set-profiles - '(:application 'tramp :protocol "sudo" + '(:application tramp :protocol "sudo" :user "root" :machine "localhost") 'remote-ksh 'remote-null-device) @end group @@ -2329,13 +2329,13 @@ Therefore, the example above would be equivalent to @example @group (connection-local-set-profiles - '(:application 'tramp :protocol "ssh" :machine "localhost") + '(:application tramp :protocol "ssh" :machine "localhost") 'remote-bash) @end group @group (connection-local-set-profiles - '(:application 'tramp :protocol "sudo" + '(:application tramp :protocol "sudo" :user "root" :machine "localhost") 'remote-ksh) @end group @@ -2365,7 +2365,7 @@ Example: @example @group (hack-connection-local-variables - '(:application 'tramp :protocol "ssh" :machine "localhost")) + '(:application tramp :protocol "ssh" :machine "localhost")) @end group @group @@ -2401,7 +2401,7 @@ are unwound. Example: @group (connection-local-set-profiles - '(:application 'tramp :protocol "ssh" :machine "remotehost") + '(:application tramp :protocol "ssh" :machine "remotehost") 'remote-perl) @end group @@ -2429,7 +2429,7 @@ could let-bind it like @group (connection-local-set-profiles - '(:application 'my-app :protocol "ssh" :machine "remotehost") + '(:application my-app :protocol "ssh" :machine "remotehost") 'my-remote-perl) @end group diff --git a/test/lisp/files-x-tests.el b/test/lisp/files-x-tests.el index 7ee2f0c1a65..2f6d0d4a991 100644 --- a/test/lisp/files-x-tests.el +++ b/test/lisp/files-x-tests.el @@ -42,9 +42,9 @@ (put 'remote-shell-login-switch 'safe-local-variable #'identity) (put 'remote-null-device 'safe-local-variable #'identity) -(defconst files-x-test--application '(:application 'my-application)) +(defconst files-x-test--application '(:application my-application)) (defconst files-x-test--another-application - '(:application 'another-application)) + '(:application another-application)) (defconst files-x-test--protocol '(:protocol "my-protocol")) (defconst files-x-test--user '(:user "my-user")) (defconst files-x-test--machine '(:machine "my-machine")) |