procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

f90.el fix for bug#7919.

Browse source 
* lisp/progmodes/f90.el (f90-find-tag-default): New function.
(f90-mode): Use it for mode's `find-tag-default-function' property.
This commit is contained in:
Glenn Morris 2011-02-03 19:21:11 -08:00
parent d436de979a
commit 9783df21c0
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-02-04 Glenn Morris <rgm@gnu.org>
* 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 <rgm@gnu.org>
* ibuf-ext.el (ibuffer-filter-disable): Make it work. (Bug#7969)

10
lisp/progmodes/f90.el
View file

@ -2205,6 +2205,16 @@ CHANGE-WORD should be one of 'upcase-word, 'downcase-word, 'capitalize-word."
(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.