commit 69474e9c49076ce82cea4eff237933b6cec0b5cf
parent 802bc8b7836c3c99f591dda1d56cf6d4016812bd
Author: Nick Drozd <nicholasdrozd@gmail.com>
Date: Thu, 11 Jul 2019 18:19:29 -0500
Fix helpful--convert-c-name calls
I don't know how these got mixed up, but they did.
Diffstat:
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git 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
@@ -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