From fedc1334e67a80e8bd9042c91f55bee07bced02e Mon Sep 17 00:00:00 2001 From: rubikitch Date: Sun, 12 Dec 2010 18:15:53 +0900 Subject: [PATCH] anything-complete.el (tap-symbol): return string instead of symbol --- extensions/anything-complete.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extensions/anything-complete.el b/extensions/anything-complete.el index ddb05ee..891013a 100644 --- a/extensions/anything-complete.el +++ b/extensions/anything-complete.el @@ -234,7 +234,7 @@ used by `anything-lisp-complete-symbol-set-timer' and `anything-apropos'" (if (loop for src in (anything-get-sources) thereis (string-match "^dabbrev" (assoc-default 'name src))) anything-dabbrev-last-target - (anything-aif (tap-symbol) (symbol-name it) ""))) + (or (tap-symbol) ""))) (anything-candidate-buffer (get-buffer bufname))) (defcustom anything-complete-sort-candidates nil @@ -443,11 +443,11 @@ used by `anything-lisp-complete-symbol-set-timer' and `anything-apropos'" (anything-update)) (defun tap-symbol () - "Get symbol before point." + "Get symbol name before point." (save-excursion (let ((beg (point))) (when (re-search-backward "\(\\|\\s-\\|^\\|\r\\|'\\|#'" (point-at-bol) t) - (intern (buffer-substring-no-properties beg (match-end 0))))))) + (buffer-substring-no-properties beg (match-end 0)))))) (defun alcs-initial-input (partial-match) (anything-aif (tap-symbol) -- 2.11.4.GIT