From 69474e9c49076ce82cea4eff237933b6cec0b5cf Mon Sep 17 00:00:00 2001 From: Nick Drozd Date: Thu, 11 Jul 2019 18:19:29 -0500 Subject: Fix helpful--convert-c-name calls I don't know how these got mixed up, but they did. --- helpful.el | 4 ++-- test/helpful-unit-test.el | 4 ++++ 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 -- cgit v1.0