summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp
diff options
context:
space:
mode:
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)))
+=-=-=