# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1624436385 -10800
# Node ID b4c49ef014e205baa9f8d809e9c44ece854c140e
# Parent  e8425ea2f39bb7088cb701538883e4c0115d000b
Updated Sabre XML entries to highlight.

diff -r e8425ea2f39b -r b4c49ef014e2 mylisp/gds-sabre.el
--- a/mylisp/gds-sabre.el	Wed Jun 16 18:38:12 2021 +0300
+++ b/mylisp/gds-sabre.el	Wed Jun 23 11:19:45 2021 +0300
@@ -21,9 +21,12 @@
 ;;;###autoload
 (defun gds-sabre-highlight ()
   (interactive)
-  (highlight-phrase "[[:alpha:]_]*PseudoCityCode=\\|CreationAgent=\\|BookingSource=\\|AgentSine=" 'hi-pink)
+  (highlight-regexp " \\(?:[[:alpha:]_]*PseudoCityCode\\|CreationAgent\\|BookingSource\\|AgentSine\\)=\"\\([^\"]+\\)\"" 'hi-pink 1)
+  (highlight-regexp "<\\([[:alnum:]]*:?\\)\\(RecordLocator\\|DepartureAirport\\|ArrivalAirport\\|MarketingAirlineCode\\|MarketingFlightNumber\\)>\\([^<]+\\)</\\1\\2>" 'hi-pink 3)
   (highlight-phrase ":Arunk\\|:FlightSegment\\>\\|:FareBasis\\>" 'hi-pink)
-  (highlight-phrase "ResBookDesigCode=\\|Status=\\|FlightNumber=\\|ArrivalDateTime=\\|DepartureDateTime=\\|FareBasisCode=\\|passengerType=\\|isPast=\\|isExpired=\\|itineraryChange=" 'hi-green)
+  (highlight-regexp "<\\(InputEntry\\|PricingParameters\\)>\\([^<]+\\)</\\1>" 'hi-yellow 2)
+  (highlight-phrase "\\(?:isPast\\|isExpired\\|itineraryChange\\)=\"[^\"]+\"" 'hi-green)
+  (highlight-regexp "\\(?:ResBookDesigCode\\|Status\\|FlightNumber\\|ArrivalDateTime\\|DepartureDateTime\\|FareBasisCode\\|passengerType\\)=\"\\([^\"]+\\)\"" 'hi-green 1)
   (highlight-phrase "InputMessage=" 'hi-blue))
 
 ;;;###autoload