diff options
| author | Nick Drozd <nicholasdrozd@gmail.com> | 2019-07-11 18:19:29 -0500 |
|---|---|---|
| committer | Wilfred Hughes <me@wilfred.me.uk> | 2019-08-07 22:41:29 +0100 |
| commit | 69474e9c49076ce82cea4eff237933b6cec0b5cf (patch) | |
| tree | 10470c99cbd022a85dd4084cbd8f2da7952f4088 | |
| parent | 802bc8b7836c3c99f591dda1d56cf6d4016812bd (diff) | |
Fix helpful--convert-c-name calls
I don't know how these got mixed up, but they did.
| -rw-r--r-- | helpful.el | 4 | ||||
| -rw-r--r-- | test/helpful-unit-test.el | 4 |
2 files changed, 6 insertions, 2 deletions
@@ -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 |
