Skip to content

Commit f928de5

Browse files
committed
Rename argument
1 parent b89e378 commit f928de5

File tree

2 files changed

+5
-5
lines changed

2 files changed

+5
-5
lines changed

clojure-mode.el

+4-4
Original file line numberDiff line numberDiff line change
@@ -2142,19 +2142,19 @@ DIRECTION is `forward' or `backward'."
21422142
(setq candidate (string-remove-prefix "'" (thing-at-point 'symbol))))))))
21432143
candidate))
21442144

2145-
(defun clojure-find-ns (&optional favor-nil)
2146-
"Return the namespace of the current Clojure buffer, honor `FAVOR-NIL'.
2145+
(defun clojure-find-ns (&optional supress-errors)
2146+
"Return the namespace of the current Clojure buffer, honor `SUPRESS-ERRORS'.
21472147
Return the namespace closest to point and above it. If there are
21482148
no namespaces above point, return the first one in the buffer.
21492149
2150-
If `FAVOR-NIL' is t, errors during ns form parsing will be swallowed,
2150+
If `SUPRESS-ERRORS' is t, errors during ns form parsing will be swallowed,
21512151
and nil will be returned instead of letting this function fail.
21522152
21532153
The results will be cached if `clojure-cache-ns' is set to t."
21542154
(if (and clojure-cache-ns clojure-cached-ns)
21552155
clojure-cached-ns
21562156
(let* ((f (lambda (direction)
2157-
(if favor-nil
2157+
(if supress-errors
21582158
(ignore-errors (clojure--find-ns-in-direction direction))
21592159
(clojure--find-ns-in-direction direction))))
21602160
(ns (save-excursion

test/clojure-mode-sexp-test.el

+1-1
Original file line numberDiff line numberDiff line change
@@ -169,7 +169,7 @@
169169
(goto-char (point-max))
170170
(expect (clojure-find-ns) :to-equal expected))))))
171171

172-
(describe "`favor-nil' argument"
172+
(describe "`supress-errors' argument"
173173
(let ((clojure-cache-ns nil))
174174
(describe "given a faulty ns form"
175175
(let ((ns-form "(ns )"))

0 commit comments

Comments
 (0)