Evangelos Evangelou <vangelis at email.unc.edu> (tiny change)

(f90-no-break-re): Add "(/" and "/)".  (Bug#3730)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd1e3beef145d04e297a8a3e7ccd39e62a4b9f4a..36f43c87e252b4bc8e8feaefcf578c932ff49512 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-07-01  Evangelos Evangelou  <vangelis@email.unc.edu>  (tiny change)
+
+       * progmodes/f90.el (f90-no-break-re): Add "(/" and "/)".  (Bug#3730)
+
 2009-06-30  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-do-copy-or-rename-file-directly): Handle

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 9048b7b490cc03648db2a07687e8de036c789444..bc57db13fda79daacca0cce9bbbe47b425344e35 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -823,7 +823,7 @@ Can be overridden by the value of `font-lock-maximum-decoration'.")
   "Regexp matching a CLASS/TYPE IS statement.")
 
 (defconst f90-no-break-re
-  (regexp-opt '("**" "//" "=>" ">=" "<=" "==" "/=") 'paren)
+  (regexp-opt '("**" "//" "=>" ">=" "<=" "==" "/=" "(/" "/)") 'paren)
   "Regexp specifying where not to break lines when filling.
 This regexp matches certain tokens comprised entirely of
 characters matching the regexp `f90-break-delimiters' that should