From xemacs-m  Thu Jun 19 07:14:15 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id HAA18732
	for <xemacs-beta@xemacs.org>; Thu, 19 Jun 1997 07:14:13 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id FAA28838;
	Thu, 19 Jun 1997 05:14:41 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] font-lock.el
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Thu_Jun_19_05:14:40_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg@inetarena.com (Karl M. Hegbloom)
Date: 19 Jun 1997 05:14:40 -0700
Message-ID: <87lo46iybz.fsf@bittersweet.inetarena.com>
Lines: 88
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta7) - "Oslo"

--Multipart_Thu_Jun_19_05:14:40_1997-1
Content-Type: text/plain; charset=US-ASCII


 Did I miss any?  (You tell me and we'll both know.)

 Gee, `make-regex.el' sure is nifty...  Why isn't it part of XEmacs?


--Multipart_Thu_Jun_19_05:14:40_1997-1
Content-Type: text/plain; charset=US-ASCII

1997-06-19	Karl M. Hegbloom	<karlheg@inetarena.com>

	* packages/font-lock.el (lisp-font-lock-keywords-2): added
	some missing functions.


--Multipart_Thu_Jun_19_05:14:40_1997-1
Content-Type: text/plain; charset=US-ASCII

*** font-lock.el	1997/06/19 09:54:37	1.1
--- font-lock.el	1997/06/19 12:04:49	1.2
***************
*** 1611,1632 ****
     (list
      ;;
      ;; Control structures.  ELisp and CLisp combined.
! ;      (make-regexp
! ;       '("cond" "if" "while" "let\\*?" "prog[nv12*]?" "catch" "throw"
! ;	 "save-restriction" "save-excursion" "save-window-excursion"
! ;	 "save-selected-window" "save-match-data" "unwind-protect"
! ;	 "condition-case" "track-mouse"
! ;	 "eval-after-load" "eval-and-compile" "eval-when-compile"
! ;	 "when" "unless" "do" "flet" "labels" "return" "return-from"))
      (cons
       (concat
        "(\\("
!       "\\(c\\(atch\\|ond\\(\\|ition-case\\)\\)\\|do\\|"
!       "eval-\\(a\\(fter-load\\|nd-compile\\)\\|when-compile\\)\\|flet\\|"
!       "if\\|l\\(abels\\|et\\*?\\)\\|prog[nv12*]?\\|return\\(\\|-from\\)\\|"
!       "save-\\(excursion\\|match-data\\|restriction\\|selected-window\\|"
!       "window-excursion\\)\\|t\\(hrow\\|rack-mouse\\)\\|"
!       "un\\(less\\|wind-protect\\)\\|wh\\(en\\|ile\\)\\)"
        "\\)\\>") 1)
      ;;
      ;; Words inside \\[] tend to be for `substitute-command-keys'.
--- 1611,1639 ----
     (list
      ;;
      ;; Control structures.  ELisp and CLisp combined.
!     ;;
!     ;;(make-regexp
!     ;;  '("cond" "if" "while" "let\\*?" "prog[nv12*]?" "catch" "throw"
!     ;;    "save-restriction" "save-excursion" "save-window-excursion"
!     ;;    "save-current-buffer" "with-current-buffer"
!     ;;    "with-temp-file" "with-output-to-.+"
!     ;;    "save-selected-window" "save-match-data" "unwind-protect"
!     ;;    "condition-case" "track-mouse" "autoload"
!     ;;    "eval-after-load" "eval-and-compile" "eval-when-compile"
!     ;;    "when" "unless" "do" "flet" "labels" "lambda"
!     ;;    "return" "return-from"))
!     ;;
      (cons
       (concat
        "(\\("
!       "autoload\\|c\\(atch\\|ond\\(\\|ition-case\\)\\)\\|do\\|"
!       "eval-\\(a\\(fter-load\\|nd-compile\\)\\|when-compile\\)\\|"
!       "flet\\|if\\|l\\(a\\(bels\\|mbda\\)\\|et\\*?\\)\\|prog[nv12*]?\\|"
!       "return\\(\\|-from\\)\\|save-\\(current-buffer\\|excursion\\|"
!       "match-data\\|restriction\\|selected-window\\|window-excursion\\)\\|"
!       "t\\(hrow\\|rack-mouse\\)\\|un\\(less\\|wind-protect\\)\\|"
!       "w\\(h\\(en\\|ile\\)\\|ith-\\(current-buffer\\|output-to-.+\\|"
!       "temp-file\\)\\)"
        "\\)\\>") 1)
      ;;
      ;; Words inside \\[] tend to be for `substitute-command-keys'.


--Multipart_Thu_Jun_19_05:14:40_1997-1
Content-Type: text/plain; charset=US-ASCII

Karl M. Hegbloom <karlheg@inetarena.com>           finger or ytalk:
http://www.inetarena.com/~karlheg           karlheg@bittersweet.inetarena.com
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

--Multipart_Thu_Jun_19_05:14:40_1997-1--

