diff options
| author | Glenn Morris | 2011-03-31 00:20:38 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-03-31 00:20:38 -0700 |
| commit | e040639fd98db525bb4e36268a057fc6c2f6c0ae (patch) | |
| tree | e207f6c094eaefcc38fcf658304cf7a35562977f /lisp/progmodes | |
| parent | cba6e77ef313ae7caa6a3aedc26ee1dd513a570c (diff) | |
| download | emacs-e040639fd98db525bb4e36268a057fc6c2f6c0ae.tar.gz emacs-e040639fd98db525bb4e36268a057fc6c2f6c0ae.zip | |
* lisp/progmodes/f90.el (f90-find-tag-default): Handle multiple `%'.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/f90.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 2203 | (let ((tag (find-tag-default))) | 2203 | (let ((tag (find-tag-default))) |
| 2204 | (or (and tag | 2204 | (or (and tag |
| 2205 | ;; See bug#7919. TODO I imagine there are other cases...? | 2205 | ;; See bug#7919. TODO I imagine there are other cases...? |
| 2206 | (string-match "%\\(.+\\)" tag) | 2206 | (string-match "%\\([^%]+\\)\\'" tag) |
| 2207 | (match-string-no-properties 1 tag)) | 2207 | (match-string-no-properties 1 tag)) |
| 2208 | tag))) | 2208 | tag))) |
| 2209 | 2209 | ||