[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104567: Give % punctuation syntax in
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104567: Give % punctuation syntax in fortran modes (bug#8820) |
Date: |
Sat, 11 Jun 2011 17:57:24 -0700 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104567
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-06-11 17:57:24 -0700
message:
Give % punctuation syntax in fortran modes (bug#8820)
* lisp/progmodes/fortran.el (fortran-mode-syntax-table):
* lisp/progmodes/f90.el (f90-mode-syntax-table):
Set % to punctuation.
(f90-find-tag-default): Remove, no longer needed.
modified:
lisp/ChangeLog
lisp/progmodes/f90.el
lisp/progmodes/fortran.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-06-12 00:27:14 +0000
+++ b/lisp/ChangeLog 2011-06-12 00:57:24 +0000
@@ -1,3 +1,10 @@
+2011-06-12 Glenn Morris <address@hidden>
+
+ * progmodes/fortran.el (fortran-mode-syntax-table):
+ * progmodes/f90.el (f90-mode-syntax-table):
+ Set % to punctuation. (Bug#8820)
+ (f90-find-tag-default): Remove, no longer needed.
+
2011-06-12 Daniel Colascione <address@hidden>
* emacs-lisp/syntax.el (syntax-ppss): Clarify which items are invalid.
=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el 2011-05-23 17:57:17 +0000
+++ b/lisp/progmodes/f90.el 2011-06-12 00:57:24 +0000
@@ -629,6 +629,7 @@
(modify-syntax-entry ?= "." table)
(modify-syntax-entry ?* "." table)
(modify-syntax-entry ?/ "." table)
+ (modify-syntax-entry ?% "." table) ; bug#8820
;; I think that the f95 standard leaves the behavior of \
;; unspecified, but that f2k will require it to be non-special.
;; Use `f90-backslash-not-special' to change.
@@ -2199,17 +2200,6 @@
(save-excursion
(nth 1 (f90-beginning-of-subprogram))))
-(defun f90-find-tag-default ()
- "Function to use for `find-tag-default-function' property in F90 mode."
- (let ((tag (find-tag-default)))
- (or (and tag
- ;; See bug#7919. TODO I imagine there are other cases...?
- (string-match "%\\([^%]+\\)\\'" tag)
- (match-string-no-properties 1 tag))
- tag)))
-
-(put 'f90-mode 'find-tag-default-function 'f90-find-tag-default)
-
(defun f90-backslash-not-special (&optional all)
"Make the backslash character (\\) be non-special in the current buffer.
With optional argument ALL, change the default for all present
=== modified file 'lisp/progmodes/fortran.el'
--- a/lisp/progmodes/fortran.el 2011-05-04 02:01:27 +0000
+++ b/lisp/progmodes/fortran.el 2011-06-12 00:57:24 +0000
@@ -600,6 +600,7 @@
(modify-syntax-entry ?= "." table)
(modify-syntax-entry ?* "." table)
(modify-syntax-entry ?/ "." table)
+ (modify-syntax-entry ?% "." table) ; bug#8820
(modify-syntax-entry ?\' "\"" table)
(modify-syntax-entry ?\" "\"" table)
;; Consistent with GNU Fortran's default -- see the manual.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104567: Give % punctuation syntax in fortran modes (bug#8820),
Glenn Morris <=