aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNick Drozd <nicholasdrozd@gmail.com>2019-07-11 18:19:29 -0500
committerWilfred Hughes <me@wilfred.me.uk>2019-08-07 22:41:29 +0100
commit69474e9c49076ce82cea4eff237933b6cec0b5cf (patch)
tree10470c99cbd022a85dd4084cbd8f2da7952f4088
parent802bc8b7836c3c99f591dda1d56cf6d4016812bd (diff)
Fix helpful--convert-c-name calls
I don't know how these got mixed up, but they did.
-rw-r--r--helpful.el4
-rw-r--r--test/helpful-unit-test.el4
2 files changed, 6 insertions, 2 deletions
diff --git a/helpful.el b/helpful.el
index 01054f0..741f1eb 100644
--- a/helpful.el
+++ b/helpful.el
@@ -2558,8 +2558,8 @@ nil if SYMBOL doesn't begin with \"F\" or \"V\"."
See also `helpful-callable' and `helpful-variable'."
(interactive
(list (helpful--read-symbol "Symbol: " #'helpful--bound-p)))
- (let ((c-var-sym (helpful--convert-c-name symbol nil))
- (c-fn-sym (helpful--convert-c-name symbol t)))
+ (let ((c-var-sym (helpful--convert-c-name symbol t))
+ (c-fn-sym (helpful--convert-c-name symbol nil)))
(cond
((and (boundp symbol) (fboundp symbol))
(if (y-or-n-p
diff --git a/test/helpful-unit-test.el b/test/helpful-unit-test.el
index d39ff2d..87ef40f 100644
--- a/test/helpful-unit-test.el
+++ b/test/helpful-unit-test.el
@@ -933,6 +933,10 @@ find the source code."
(should-not
(helpful--convert-c-name 'Vgc_cons_percentage nil)))
+(ert-deftest helpful-symbol-c-style ()
+ (helpful-symbol 'Fget_char_property)
+ (helpful-symbol 'Vinhibit_field_text_motion))
+
(ert-deftest helpful-symbol-unbound ()
"Ensure we inform the user if we're given an unbound symbol."
(should