From e040639fd98db525bb4e36268a057fc6c2f6c0ae Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 31 Mar 2011 00:20:38 -0700 Subject: [PATCH] * lisp/progmodes/f90.el (f90-find-tag-default): Handle multiple `%'. --- lisp/ChangeLog | 2 ++ lisp/progmodes/f90.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cb71b40e067..933eb2bd94e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2011-03-31 Glenn Morris + * 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 diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index ed745ae784e..232299da4db 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -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))) -- 2.39.2