mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/progmodes/f90.el (f90-find-tag-default): Handle multiple `%'.

Browse source
This commit is contained in:
Glenn Morris 2011-03-31 00:20:38 -07:00
parent cba6e77ef3
commit e040639fd9
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2011-03-31 Glenn Morris <rgm@gnu.org>
* progmodes/f90.el (f90-find-tag-default): Handle multiple `%'.
* generic-x.el (etc-fstab-generic-mode): Add ext4, sysfs keywords.
2011-03-30 Christoph Scholtes <cschol2112@googlemail.com>

2
lisp/progmodes/f90.el
View file

@ -2203,7 +2203,7 @@ CHANGE-WORD should be one of 'upcase-word, 'downcase-word, 'capitalize-word."
(let ((tag (find-tag-default)))
(or (and tag
;; See bug#7919. TODO I imagine there are other cases...?
(string-match "%\\(.+\\)" tag)
(string-match "%\\([^%]+\\)\\'" tag)
(match-string-no-properties 1 tag))
tag)))