mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

; Remove over-quoting of :application values in connection-local variables

Browse Source 
* 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.
This commit is contained in:
Jim Porter 2022-10-12 11:28:05 -07:00
parent f4442d49f6
commit 1beb389e47
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
doc/lispref/variables.texi
View File

@ -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

4
test/lisp/files-x-tests.el
View File

@ -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"))