[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100451: f90.el fix for bug#7919.

[Glenn Morris]

------------------------------------------------------------
revno: 100451
committer: Glenn Morris <address@hidden>
branch nick: emacs-23
timestamp: Thu 2011-02-03 19:21:11 -0800
message:
  f90.el fix for bug#7919.
  
  * lisp/progmodes/f90.el (f90-find-tag-default): New function.
  (f90-mode): Use it for mode's `find-tag-default-function' property.
modified:
  lisp/ChangeLog
  lisp/progmodes/f90.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-03 07:02:52 +0000
+++ b/lisp/ChangeLog    2011-02-04 03:21:11 +0000
@@ -1,3 +1,8 @@
+2011-02-04  Glenn Morris  <address@hidden>
+
+       * progmodes/f90.el (f90-find-tag-default): New function.  (Bug#7919)
+       (f90-mode): Use it for mode's `find-tag-default-function' property.
+
 2011-02-03  Glenn Morris  <address@hidden>
 
        * ibuf-ext.el (ibuffer-filter-disable): Make it work.  (Bug#7969)

=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el     2011-01-02 23:50:46 +0000
+++ b/lisp/progmodes/f90.el     2011-02-04 03:21:11 +0000
@@ -2205,6 +2205,16 @@
   (save-excursion
     (nth 1 (f90-beginning-of-subprogram))))
 
+(defun f90-find-tag-default ()
+  "Function to use for `find-tag-default-function' property in F90 mode."
+  (let ((tag (find-tag-default)))
+    (or (and tag
+             ;; See bug#7919. TODO I imagine there are other cases...?
+             (string-match "%\\(.+\\)" tag)
+             (match-string-no-properties 1 tag))
+        tag)))
+
+(put 'f90-mode 'find-tag-default-function 'f90-find-tag-default)
 
 (defun f90-backslash-not-special (&optional all)
   "Make the backslash character (\\) be non-special in the current buffer.