[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103788: * lisp/progmodes/f90.el (f90
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103788: * lisp/progmodes/f90.el (f90-find-tag-default): Handle multiple `%'. |
Date: |
Thu, 31 Mar 2011 00:20:38 -0700 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 103788
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2011-03-31 00:20:38 -0700
message:
* lisp/progmodes/f90.el (f90-find-tag-default): Handle multiple `%'.
modified:
lisp/ChangeLog
lisp/progmodes/f90.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-03-31 02:11:34 +0000
+++ b/lisp/ChangeLog 2011-03-31 07:20:38 +0000
@@ -1,5 +1,7 @@
2011-03-31 Glenn Morris <address@hidden>
+ * 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 <address@hidden>
=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el 2011-02-05 22:30:14 +0000
+++ b/lisp/progmodes/f90.el 2011-03-31 07:20:38 +0000
@@ -2203,7 +2203,7 @@
(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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103788: * lisp/progmodes/f90.el (f90-find-tag-default): Handle multiple `%'.,
Glenn Morris <=