From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.bugs Subject: bug#14442: On syntax decoration of identifiers containing underscore and statements word [f90] Date: Wed, 22 May 2013 18:20:19 -0400 Message-ID: References: <51955A32.2080302@alice.it> <51960C1D.6070906@alice.it> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1369261287 18379 80.91.229.3 (22 May 2013 22:21:27 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 22 May 2013 22:21:27 +0000 (UTC) Cc: Angelo Graziosi To: 14442@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu May 23 00:21:25 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UfHPQ-0007Yx-Rx for geb-bug-gnu-emacs@m.gmane.org; Thu, 23 May 2013 00:21:25 +0200 Original-Received: from localhost ([::1]:38644 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UfHPQ-00020J-B9 for geb-bug-gnu-emacs@m.gmane.org; Wed, 22 May 2013 18:21:24 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:54852) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UfHPM-00020E-TA for bug-gnu-emacs@gnu.org; Wed, 22 May 2013 18:21:22 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UfHPL-0000c3-7e for bug-gnu-emacs@gnu.org; Wed, 22 May 2013 18:21:20 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:40291) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UfHPI-0000bi-9p; Wed, 22 May 2013 18:21:16 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1UfHQ1-00051p-KZ; Wed, 22 May 2013 18:22:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Stefan Monnier Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: angelo.graziosi@alice.it, rgm@gnu.org, bug-gnu-emacs@gnu.org Resent-Date: Wed, 22 May 2013 22:22:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 14442 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org X-Debbugs-Original-Xcc: Angelo Graziosi , Glenn Morris Original-Received: via spool by submit@debbugs.gnu.org id=B.136926128619243 (code B ref -1); Wed, 22 May 2013 22:22:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 22 May 2013 22:21:26 +0000 Original-Received: from localhost ([127.0.0.1]:56880 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UfHPR-00050H-0p for submit@debbugs.gnu.org; Wed, 22 May 2013 18:21:25 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:43378) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UfHPM-0004zw-4F for submit@debbugs.gnu.org; Wed, 22 May 2013 18:21:22 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UfHOS-0000WE-Ck for submit@debbugs.gnu.org; Wed, 22 May 2013 18:20:25 -0400 Original-Received: from lists.gnu.org ([208.118.235.17]:48052) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UfHOS-0000WA-9c for submit@debbugs.gnu.org; Wed, 22 May 2013 18:20:24 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:54736) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UfHOQ-0001fT-3L for bug-gnu-emacs@gnu.org; Wed, 22 May 2013 18:20:24 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UfHOO-0000Vn-U9 for bug-gnu-emacs@gnu.org; Wed, 22 May 2013 18:20:22 -0400 Original-Received: from chene.dit.umontreal.ca ([132.204.246.20]:59479) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UfHOO-0000Vj-Og for bug-gnu-emacs@gnu.org; Wed, 22 May 2013 18:20:20 -0400 Original-Received: from faina.iro.umontreal.ca (lechon.iro.umontreal.ca [132.204.27.242]) by chene.dit.umontreal.ca (8.14.1/8.14.1) with ESMTP id r4MMKK93016824; Wed, 22 May 2013 18:20:20 -0400 Original-Received: by faina.iro.umontreal.ca (Postfix, from userid 20848) id E8545B4030; Wed, 22 May 2013 18:20:19 -0400 (EDT) In-Reply-To: <51960C1D.6070906@alice.it> (Angelo Graziosi's message of "Fri, 17 May 2013 12:53:17 +0200") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) X-NAI-Spam-Flag: NO X-NAI-Spam-Threshold: 5 X-NAI-Spam-Score: 0 X-NAI-Spam-Rules: 1 Rules triggered RV4587=0 X-NAI-Spam-Version: 2.3.0.9362 : core <4587> : streams <965655> : uri <1427414> X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:74468 Archived-At: > ..but I have to flag another little issue.. Please report these as bug (i.e. via report-emacs-bug or to bug-gnu-emacs@gnu.org). > In the code > public ExitProcess > interface > subroutine ExitProcess(uExitCode) bind(C,name='ExitProcess') > import > !GCC$ ATTRIBUTES STDCALL :: ExitProcess > integer(UINT_T), intent(in), value :: uExitCode > end subroutine ExitProcess > end interface > the identifier "ExitProcess" after "public" (first line) has: "Exit" in > magenta and "Process" in cyan. Shouldn't it be all in black?("ExitProcess" > after "subroutine" is all in blue as expected) At least this problem was not introduced by my recent change. It was already present in Emacs-24.2 (among other versions). The patch below seems to fix it, but I don't know enough the rules of Fortran syntax to be sure it's the right thing to do. There are probably other cases, by the way (the patch below also fixes one other case for "implicitreal"). Stefan === modified file 'lisp/progmodes/f90.el' --- lisp/progmodes/f90.el 2013-05-17 00:36:33 +0000 +++ lisp/progmodes/f90.el 2013-05-22 22:16:01 +0000 @@ -641,16 +641,16 @@ forall\\|block\\|critical\\)\\)\\_>" (2 font-lock-constant-face nil t) (3 font-lock-keyword-face)) ;; Implicit declaration. - '("\\_<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\ + '("\\_<\\(implicit\\)[ \t]+\\(real\\|integer\\|c\\(haracter\\|omplex\\)\ \\|enumerator\\|procedure\\|\ logical\\|double[ \t]*precision\\|type[ \t]*(\\(?:\\sw\\|\\s_\\)+)\\|none\\)[ \t]*" (1 font-lock-keyword-face) (2 font-lock-type-face)) - '("\\_<\\(namelist\\|common\\)[ \t]*\/\\(\\(?:\\sw\\|\\s_\\)+\\)?\/" + '("\\_<\\(namelist\\|common\\)[ \t]*/\\(\\(?:\\sw\\|\\s_\\)+\\)?\/" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) "\\_" '("\\(&\\)[ \t]*\\(!\\|$\\)" (1 font-lock-keyword-face)) "\\_<\\(then\\|continue\\|format\\|include\\|stop\\|return\\)\\_>" - '("\\_<\\(exit\\|cycle\\)[ \t]*\\(\\(?:\\sw\\|\\s_\\)+\\)?\\_>" + '("\\_<\\(exit\\|cycle\\)[ \t]+\\(\\(?:\\sw\\|\\s_\\)+\\)?\\_>" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) '("\\_<\\(case\\)[ \t]*\\(default\\|(\\)" . 1) ;; F2003 "class default".