Commit e040639f authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent cba6e77e
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>
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment