[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100451: f90.el fix for bug#7919.
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100451: f90.el fix for bug#7919. |
Date: |
Thu, 03 Feb 2011 19:21:11 -0800 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-23 r100451: f90.el fix for bug#7919.,
Glenn Morris <=