From 5ea6556bc11dc428b3cba5d746c064f652326d1d Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Wed, 12 Oct 2022 11:28:05 -0700 Subject: [PATCH 1/7] ; 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. --- doc/lispref/variables.texi | 14 +++++++------- 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 1d891618da..2a06169b21 100644 --- a/doc/lispref/variables.texi +++ b/doc/lispref/variables.texi @@ -2311,13 +2311,13 @@ Connection Local Variables @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 @@ Connection Local Variables @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 @@ Connection Local Variables @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 @@ Connection Local Variables @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 @@ Connection Local Variables @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 7ee2f0c1a6..2f6d0d4a99 100644 --- a/test/lisp/files-x-tests.el +++ b/test/lisp/files-x-tests.el @@ -42,9 +42,9 @@ remote-null-device (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")) -- 2.25.1