helpful

commit 3698c95359fa45b38f65f08bfa350996f1e91af8
parent 7d5538941d7da79dd85af64b90a24e93d6518bb3
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sat, 16 Dec 2017 12:07:48 +0000

Don't roll our own properties removal

Diffstat:
M
helpful.el
 | 
8
+-------

1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/helpful.el b/helpful.el
@@ -225,15 +225,9 @@ or disable if already enabled."
   'follow-link t
   'help-echo "Navigate to definition")
 
-(defun helpful--no-properties (s)
-  "Return a copy of S without any properties."
-  (with-temp-buffer
-    (insert s)
-    (buffer-substring-no-properties (point-min) (point-max))))
-
 (defun helpful--navigate (button)
   "Navigate to the path this BUTTON represents."
-  (find-file (helpful--no-properties (button-get button 'path)))
+  (find-file (substring-no-properties (button-get button 'path)))
   ;; We use `get-text-property' to work around an Emacs 25 bug:
   ;; http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=f7c4bad17d83297ee9a1b57552b1944020f23aea
   (-when-let (pos (get-text-property button 'position