Skip to content

Commit 839de5b

Browse files
committed
Remove unused inf-clojure-chomp function
1 parent 262739c commit 839de5b

2 files changed

Lines changed: 0 additions & 14 deletions

File tree

inf-clojure.el

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -670,10 +670,6 @@ If `comint-use-prompt-regexp' is nil (the default), \\[comint-insert-input] on
670670
"Return t if STR does not match `inf-clojure-filter-regexp'."
671671
(not (string-match inf-clojure-filter-regexp str)))
672672

673-
(defun inf-clojure-chomp (string)
674-
"Remove final newline from STRING."
675-
(string-trim-right string "\n"))
676-
677673
(defun inf-clojure-remove-subprompts (string)
678674
"Remove subprompts from STRING."
679675
(replace-regexp-in-string inf-clojure-subprompt "" string))

test/inf-clojure-tests.el

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -228,16 +228,6 @@ is a string\")
228228
(expect (inf-clojure--project-name "/home/user/projects/my-app/")
229229
:to-equal "my-app")))
230230

231-
(describe "inf-clojure-chomp"
232-
(it "removes a trailing newline"
233-
(expect (inf-clojure-chomp "hello\n") :to-equal "hello"))
234-
(it "removes only the final trailing newline"
235-
(expect (inf-clojure-chomp "hello\n\n\n") :to-equal "hello\n\n"))
236-
(it "returns unchanged string when no trailing newline"
237-
(expect (inf-clojure-chomp "hello") :to-equal "hello"))
238-
(it "preserves internal newlines"
239-
(expect (inf-clojure-chomp "hello\nworld\n") :to-equal "hello\nworld")))
240-
241231
(describe "inf-clojure-preoutput-filter"
242232
(it "passes through output when not filtering"
243233
(let ((inf-clojure--filtering-output nil)

0 commit comments

Comments
 (0)