File tree 2 files changed +5
-5
lines changed
2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -2142,19 +2142,19 @@ DIRECTION is `forward' or `backward'."
2142
2142
(setq candidate (string-remove-prefix " '" (thing-at-point 'symbol ))))))))
2143
2143
candidate))
2144
2144
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 suppress-errors )
2146
+ " Return the namespace of the current Clojure buffer, honor `SUPPRESS-ERRORS ' .
2147
2147
Return the namespace closest to point and above it. If there are
2148
2148
no namespaces above point, return the first one in the buffer.
2149
2149
2150
- If `FAVOR-NIL ' is t, errors during ns form parsing will be swallowed,
2150
+ If `SUPPRESS-ERRORS ' is t, errors during ns form parsing will be swallowed,
2151
2151
and nil will be returned instead of letting this function fail.
2152
2152
2153
2153
The results will be cached if `clojure-cache-ns' is set to t."
2154
2154
(if (and clojure-cache-ns clojure-cached-ns)
2155
2155
clojure-cached-ns
2156
2156
(let* ((f (lambda (direction )
2157
- (if favor-nil
2157
+ (if suppress-errors
2158
2158
(ignore-errors (clojure--find-ns-in-direction direction))
2159
2159
(clojure--find-ns-in-direction direction))))
2160
2160
(ns (save-excursion
Original file line number Diff line number Diff line change 169
169
(goto-char (point-max ))
170
170
(expect (clojure-find-ns) :to-equal expected))))))
171
171
172
- (describe " `favor-nil ' argument"
172
+ (describe " `suppress-errors ' argument"
173
173
(let ((clojure-cache-ns nil ))
174
174
(describe " given a faulty ns form"
175
175
(let ((ns-form " (ns )" ))
You can’t perform that action at this time.
0 commit comments