summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2021-11-04 23:16:47 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2021-11-04 23:16:47 +0100
commit4cf7af5a2a9aecb067d95b96a5965cc74627e86b (patch)
treec81cfd27dd32949c48727fc36f2cf8f106de1e0f /test/lisp/emacs-lisp
parentcb9f3e1158a7b3cf556bdeeb5c4ba5896279a573 (diff)
downloademacs-4cf7af5a2a9aecb067d95b96a5965cc74627e86b.tar.gz
emacs-4cf7af5a2a9aecb067d95b96a5965cc74627e86b.tar.bz2
emacs-4cf7af5a2a9aecb067d95b96a5965cc74627e86b.zip
Tweak multi-line expressions in pp--format-function
* lisp/emacs-lisp/pp.el (pp--format-function): Fix up multi-line expressions.
Diffstat (limited to 'test/lisp/emacs-lisp')
-rw-r--r--test/lisp/emacs-lisp/pp-resources/code-formats.erts13
1 files changed, 12 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/pp-resources/code-formats.erts b/test/lisp/emacs-lisp/pp-resources/code-formats.erts
index f48e262f69d..c2733d84dae 100644
--- a/test/lisp/emacs-lisp/pp-resources/code-formats.erts
+++ b/test/lisp/emacs-lisp/pp-resources/code-formats.erts
@@ -40,7 +40,8 @@ Name: code-formats3
(let ((a 1)
(b 2))
(zot-zot-zot-zot-zot-zot 1 2 (funcall
- bar-bar-bar-bar-bar-bar-bar-bar-bar-bar 2))))
+ bar-bar-bar-bar-bar-bar-bar-bar-bar-bar
+ 2))))
=-=-=
@@ -103,3 +104,13 @@ Name: code-formats9
(interactive)
1)
=-=-=
+
+
+Name: code-formats10
+
+=-=
+(funcall foo (concat "zot" (if (length> site 0) site
+ "bar")
+ "+"
+ (string-replace " " "+" query)))
+=-=-=