[elpa] master c92b463 2/3: Look for symbols, not words

[Stefan Monnier]

branch: master
commit c92b463c8092d65b6da685dc00599cc7a8441203
Author: Lawrence Mitchell <address@hidden>
Commit: Lawrence Mitchell <address@hidden>

    Look for symbols, not words
---
 f90-interface-browser.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/f90-interface-browser.el b/f90-interface-browser.el
index c4acc7a..5761b87 100644
--- a/f90-interface-browser.el
+++ b/f90-interface-browser.el
@@ -282,7 +282,7 @@ the word at point.  If MATCH-SUBLIST is non-nil, only check 
if
 the arglist is a sublist of the specialiser's arglist.  For more
 details see `f90-approx-arglist-match' and
 `f90-browse-interface-specialisers'."
-  (interactive (let ((def (word-at-point)))
+  (interactive (let ((def (thing-at-point 'symbol)))
                  (list (completing-read
                         (format "Find interface/tag (default %s): " def)
                         (f90-lazy-completion-table)
@@ -307,7 +307,7 @@ which ARGLIST-TO-MATCH is a sublist of the specialiser's 
arglist.
 If INVOCATION-POINT is non-nil it should be a `point-marker'
 indicating where we were called from, for jumping back to with
 `pop-tag-mark'."
-  (interactive (let ((def (word-at-point)))
+  (interactive (let ((def (thing-at-point 'symbol)))
                  (list (completing-read
                         (format "Interface%s: "
                                 (if def
@@ -909,7 +909,7 @@ with slot B of type REAL, then A%B is returned being a 
REAL)."
         collect (save-excursion
                   (save-restriction
                     (when (re-search-forward
-                           (format "^[ \t]*\\([^!\n].+?\\)[ \t]*::.*\\<%s\\>"
+                           (format "^[ \t]*\\([^!\n].+?\\)[ \t]*::.*\\_<%s\\_>"
                                    arg) nil t)
                       (goto-char (match-beginning 0))
                       (let ((type (assoc arg