/[emacs]/emacs/lisp/progmodes/vhdl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/vhdl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by lektu, Tue Jun 14 15:31:10 2005 UTC revision 1.33 by miles, Tue Jun 14 23:56:26 2005 UTC
# Line 1379  Option `vhdl-align-groups' still applies Line 1379  Option `vhdl-align-groups' still applies
1379  (defcustom vhdl-highlight-keywords t  (defcustom vhdl-highlight-keywords t
1380    "*Non-nil means highlight VHDL keywords and other standardized words.    "*Non-nil means highlight VHDL keywords and other standardized words.
1381  The following faces are used:  The following faces are used:
1382    `font-lock-keyword-face'       : keywords    `font-lock-keyword-face'      : keywords
1383    `font-lock-type-face'          : standardized types    `font-lock-type'              : standardized types
1384    `vhdl-font-lock-attribute-face': standardized attributes    `vhdl-attribute'              : standardized attributes
1385    `vhdl-font-lock-enumvalue-face': standardized enumeration values    `vhdl-enumvalue'              : standardized enumeration values
1386    `vhdl-font-lock-function-face' : standardized function and package names    `vhdl-function'               : standardized function and package names
1387    
1388  NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu  NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu
1389        entry \"Fontify Buffer\")."        entry \"Fontify Buffer\")."
# Line 1398  The following faces are used: Line 1398  The following faces are used:
1398    `font-lock-function-name-face' : names in declarations of units,    `font-lock-function-name-face' : names in declarations of units,
1399       subprograms, components, as well as labels of VHDL constructs       subprograms, components, as well as labels of VHDL constructs
1400    `font-lock-type-face'          : names in type/nature declarations    `font-lock-type-face'          : names in type/nature declarations
1401    `vhdl-font-lock-attribute-face': names in attribute declarations    `vhdl-attribute'               : names in attribute declarations
1402    `font-lock-variable-name-face' : names in declarations of signals,    `font-lock-variable-name-face' : names in declarations of signals,
1403       variables, constants, subprogram parameters, generics, and ports       variables, constants, subprogram parameters, generics, and ports
1404    
# Line 1426  NOTE: Activate the new setting in a VHDL Line 1426  NOTE: Activate the new setting in a VHDL
1426    "*Non-nil means highlight forbidden words.    "*Non-nil means highlight forbidden words.
1427  The reserved words specified in option `vhdl-forbidden-words' or having the  The reserved words specified in option `vhdl-forbidden-words' or having the
1428  syntax specified in option `vhdl-forbidden-syntax' are highlighted in a  syntax specified in option `vhdl-forbidden-syntax' are highlighted in a
1429  warning color (face `vhdl-font-lock-reserved-words-face') to indicate not to  warning color (face `vhdl-reserved-word') to indicate not to
1430  use them.  use them.
1431    
1432  NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu  NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu
# Line 1440  NOTE: Activate the new setting in a VHDL Line 1440  NOTE: Activate the new setting in a VHDL
1440  (defcustom vhdl-highlight-verilog-keywords nil  (defcustom vhdl-highlight-verilog-keywords nil
1441    "*Non-nil means highlight Verilog keywords as reserved words.    "*Non-nil means highlight Verilog keywords as reserved words.
1442  Verilog keywords are highlighted in a warning color (face  Verilog keywords are highlighted in a warning color (face
1443  `vhdl-font-lock-reserved-words-face') to indicate not to use them.  `vhdl-reserved-word') to indicate not to use them.
1444    
1445  NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu  NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu
1446        entry \"Fontify Buffer\")."        entry \"Fontify Buffer\")."
# Line 1454  NOTE: Activate the new setting in a VHDL Line 1454  NOTE: Activate the new setting in a VHDL
1454    "*Non-nil means background-highlight code excluded from translation.    "*Non-nil means background-highlight code excluded from translation.
1455  That is, all code between \"-- pragma translate_off\" and  That is, all code between \"-- pragma translate_off\" and
1456  \"-- pragma translate_on\" is highlighted using a different background color  \"-- pragma translate_on\" is highlighted using a different background color
1457  \(face `vhdl-font-lock-translate-off-face').  \(face `vhdl-translate-off').
1458  Note: this might slow down on-the-fly fontification (and thus editing).  Note: this might slow down on-the-fly fontification (and thus editing).
1459    
1460  NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu  NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu
# Line 1501  different kinds of signals (e.g. \"Clk50 Line 1501  different kinds of signals (e.g. \"Clk50
1501  \"Signal_s\", \"Variable_v\", \"Constant_c\") by distinguishing them using  \"Signal_s\", \"Variable_v\", \"Constant_c\") by distinguishing them using
1502  common substrings or name suffices.  common substrings or name suffices.
1503  For each entry, a new face is generated with the specified colors and name  For each entry, a new face is generated with the specified colors and name
1504  \"vhdl-font-lock-\" + name + \"-face\".  \"vhdl-\" + name.
1505    
1506  NOTE: Activate a changed regexp in a VHDL buffer by re-fontifying it (menu  NOTE: Activate a changed regexp in a VHDL buffer by re-fontifying it (menu
1507        entry \"Fontify Buffer\").  All other changes require restarting Emacs."        entry \"Fontify Buffer\").  All other changes require restarting Emacs."
# Line 12484  This does highlighting of keywords and s Line 12484  This does highlighting of keywords and s
12484     (list     (list
12485      (concat      (concat
12486       "^\\s-*attribute\\s-+\\(\\w+\\)")       "^\\s-*attribute\\s-+\\(\\w+\\)")
12487      1 'vhdl-font-lock-attribute-face)      1 'vhdl-attribute)
12488    
12489     ;; highlight type/nature name in (sub)type/(sub)nature declarations     ;; highlight type/nature name in (sub)type/(sub)nature declarations
12490     (list     (list
# Line 12542  This does highlighting of additional res Line 12542  This does highlighting of additional res
12542    
12543  (defconst vhdl-font-lock-keywords-5  (defconst vhdl-font-lock-keywords-5
12544    ;; background highlight translate-off regions    ;; background highlight translate-off regions
12545    '((vhdl-match-translate-off (0 vhdl-font-lock-translate-off-face append)))    '((vhdl-match-translate-off (0 vhdl-translate-off-face append)))
12546    "For consideration as a value of `vhdl-font-lock-keywords'.    "For consideration as a value of `vhdl-font-lock-keywords'.
12547  This does background highlighting of translate-off regions.")  This does background highlighting of translate-off regions.")
12548    
12549  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12550  ;; Font and color definitions  ;; Font and color definitions
12551    
12552  (defvar vhdl-font-lock-prompt-face         'vhdl-font-lock-prompt-face  (defvar vhdl-prompt-face         'vhdl-prompt
12553    "Face name to use for prompts.")    "Face name to use for prompts.")
12554    
12555  (defvar vhdl-font-lock-attribute-face      'vhdl-font-lock-attribute-face  (defvar vhdl-attribute-face      'vhdl-attribute
12556    "Face name to use for standardized attributes.")    "Face name to use for standardized attributes.")
12557    
12558  (defvar vhdl-font-lock-enumvalue-face      'vhdl-font-lock-enumvalue-face  (defvar vhdl-enumvalue-face      'vhdl-enumvalue
12559    "Face name to use for standardized enumeration values.")    "Face name to use for standardized enumeration values.")
12560    
12561  (defvar vhdl-font-lock-function-face       'vhdl-font-lock-function-face  (defvar vhdl-function-face       'vhdl-function
12562    "Face name to use for standardized functions and packages.")    "Face name to use for standardized functions and packages.")
12563    
12564  (defvar vhdl-font-lock-directive-face      'vhdl-font-lock-directive-face  (defvar vhdl-directive-face      'vhdl-directive
12565    "Face name to use for directives.")    "Face name to use for directives.")
12566    
12567  (defvar vhdl-font-lock-reserved-words-face 'vhdl-font-lock-reserved-words-face  (defvar vhdl-reserved-words-face 'vhdl-reserved-words
12568    "Face name to use for additional reserved words.")    "Face name to use for additional reserved words.")
12569    
12570  (defvar vhdl-font-lock-translate-off-face  'vhdl-font-lock-translate-off-face  (defvar vhdl-translate-off-face  'vhdl-translate-off
12571    "Face name to use for translate-off regions.")    "Face name to use for translate-off regions.")
12572    
12573  ;; face names to use for words with special syntax.  ;; face names to use for words with special syntax.
12574  (let ((syntax-alist vhdl-special-syntax-alist)  (let ((syntax-alist vhdl-special-syntax-alist)
12575        name)        name)
12576    (while syntax-alist    (while syntax-alist
12577      (setq name (vhdl-function-name      (setq name (vhdl-function-name "vhdl" (nth 0 (car syntax-alist))))
                 "vhdl-font-lock" (nth 0 (car syntax-alist)) "face"))  
12578      (eval `(defvar ,name ',name      (eval `(defvar ,name ',name
12579               ,(concat "Face name to use for "               ,(concat "Face name to use for "
12580                        (nth 0 (car syntax-alist)) ".")))                        (nth 0 (car syntax-alist)) ".")))
# Line 12599  This does background highlighting of tra Line 12598  This does background highlighting of tra
12598  (custom-add-to-group  (custom-add-to-group
12599   'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)   'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)
12600    
12601  (defface vhdl-font-lock-prompt-face  (defface vhdl-prompt
12602    '((((min-colors 88) (class color) (background light))    '((((min-colors 88) (class color) (background light))
12603       (:foreground "Red1" :bold t))       (:foreground "Red1" :bold t))
12604      (((class color) (background light)) (:foreground "Red" :bold t))      (((class color) (background light)) (:foreground "Red" :bold t))
# Line 12608  This does background highlighting of tra Line 12607  This does background highlighting of tra
12607    "Font lock mode face used to highlight prompts."    "Font lock mode face used to highlight prompts."
12608    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces
12609    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
12610    ;; backward-compatibility alias
12611    (put 'vhdl-font-lock-prompt-face 'face-alias 'vhdl-prompt)
12612    
12613  (defface vhdl-font-lock-attribute-face  (defface vhdl-attribute
12614    '((((class color) (background light)) (:foreground "Orchid"))    '((((class color) (background light)) (:foreground "Orchid"))
12615      (((class color) (background dark)) (:foreground "LightSteelBlue"))      (((class color) (background dark)) (:foreground "LightSteelBlue"))
12616      (t (:italic t :bold t)))      (t (:italic t :bold t)))
12617    "Font lock mode face used to highlight standardized attributes."    "Font lock mode face used to highlight standardized attributes."
12618    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces
12619    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
12620    ;; backward-compatibility alias
12621    (put 'vhdl-font-lock-attribute-face 'face-alias 'vhdl-attribute)
12622    
12623  (defface vhdl-font-lock-enumvalue-face  (defface vhdl-enumvalue
12624    '((((class color) (background light)) (:foreground "SaddleBrown"))    '((((class color) (background light)) (:foreground "SaddleBrown"))
12625      (((class color) (background dark)) (:foreground "BurlyWood"))      (((class color) (background dark)) (:foreground "BurlyWood"))
12626      (t (:italic t :bold t)))      (t (:italic t :bold t)))
12627    "Font lock mode face used to highlight standardized enumeration values."    "Font lock mode face used to highlight standardized enumeration values."
12628    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces
12629    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
12630    ;; backward-compatibility alias
12631    (put 'vhdl-font-lock-enumvalue-face 'face-alias 'vhdl-enumvalue)
12632    
12633  (defface vhdl-font-lock-function-face  (defface vhdl-function
12634    '((((class color) (background light)) (:foreground "Cyan4"))    '((((class color) (background light)) (:foreground "Cyan4"))
12635      (((class color) (background dark)) (:foreground "Orchid1"))      (((class color) (background dark)) (:foreground "Orchid1"))
12636      (t (:italic t :bold t)))      (t (:italic t :bold t)))
12637    "Font lock mode face used to highlight standardized functions and packages."    "Font lock mode face used to highlight standardized functions and packages."
12638    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces
12639    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
12640    ;; backward-compatibility alias
12641    (put 'vhdl-font-lock-function-face 'face-alias 'vhdl-function)
12642    
12643  (defface vhdl-font-lock-directive-face  (defface vhdl-directive
12644    '((((class color) (background light)) (:foreground "CadetBlue"))    '((((class color) (background light)) (:foreground "CadetBlue"))
12645      (((class color) (background dark)) (:foreground "Aquamarine"))      (((class color) (background dark)) (:foreground "Aquamarine"))
12646      (t (:italic t :bold t)))      (t (:italic t :bold t)))
12647    "Font lock mode face used to highlight directives."    "Font lock mode face used to highlight directives."
12648    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces
12649    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
12650    ;; backward-compatibility alias
12651    (put 'vhdl-font-lock-directive-face 'face-alias 'vhdl-directive)
12652    
12653  (defface vhdl-font-lock-reserved-words-face  (defface vhdl-reserved-word
12654    '((((class color) (background light)) (:foreground "Orange" :bold t))    '((((class color) (background light)) (:foreground "Orange" :bold t))
12655      (((min-colors 88) (class color) (background dark))      (((min-colors 88) (class color) (background dark))
12656       (:foreground "Yellow1" :bold t))       (:foreground "Yellow1" :bold t))
# Line 12650  This does background highlighting of tra Line 12659  This does background highlighting of tra
12659    "Font lock mode face used to highlight additional reserved words."    "Font lock mode face used to highlight additional reserved words."
12660    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces
12661    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
12662    ;; backward-compatibility alias
12663    (put 'vhdl-font-lock-reserved-words-face 'face-alias 'vhdl-reserved-word)
12664    
12665  (defface vhdl-font-lock-translate-off-face  (defface vhdl-translate-off
12666    '((((class color) (background light)) (:background "LightGray"))    '((((class color) (background light)) (:background "LightGray"))
12667      (((class color) (background dark)) (:background "DimGray"))      (((class color) (background dark)) (:background "DimGray"))
12668      (t ()))      (t ()))
12669    "Font lock mode face used to background highlight translate-off regions."    "Font lock mode face used to background highlight translate-off regions."
12670    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces
12671    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
12672    ;; backward-compatibility alias
12673    (put 'vhdl-font-lock-translate-off-face 'face-alias 'vhdl-translate-off)
12674    
12675  ;; font lock mode faces used to highlight words with special syntax.  ;; font lock mode faces used to highlight words with special syntax.
12676  (let ((syntax-alist vhdl-special-syntax-alist))  (let ((syntax-alist vhdl-special-syntax-alist))
12677    (while syntax-alist    (while syntax-alist
12678      (eval `(defface ,(vhdl-function-name      (eval `(defface ,(vhdl-function-name "vhdl" (caar syntax-alist))
                       "vhdl-font-lock" (caar syntax-alist) "face")  
12679               '((((class color) (background light))               '((((class color) (background light))
12680                  (:foreground ,(nth 2 (car syntax-alist))))                  (:foreground ,(nth 2 (car syntax-alist))))
12681                 (((class color) (background dark))                 (((class color) (background dark))
# Line 12684  This does background highlighting of tra Line 12696  This does background highlighting of tra
12696    (setq vhdl-font-lock-keywords-0    (setq vhdl-font-lock-keywords-0
12697          (list (list (concat "\\(^\\|[ \t(.']\\)\\(<"          (list (list (concat "\\(^\\|[ \t(.']\\)\\(<"
12698                              vhdl-template-prompt-syntax ">\\)")                              vhdl-template-prompt-syntax ">\\)")
12699                      2 'vhdl-font-lock-prompt-face t)                      2 'vhdl-prompt t)
12700                (list (concat "--\\s-*"                (list (concat "--\\s-*"
12701                              vhdl-directive-keywords-regexp "\\s-+\\(.*\\)$")                              vhdl-directive-keywords-regexp "\\s-+\\(.*\\)$")
12702                      2 'vhdl-font-lock-directive-face t)))                      2 'vhdl-directive t)))
12703    ;; highlight keywords and standardized types, attributes, enumeration    ;; highlight keywords and standardized types, attributes, enumeration
12704    ;; values, and subprograms    ;; values, and subprograms
12705    (setq vhdl-font-lock-keywords-1    (setq vhdl-font-lock-keywords-1
12706          (list          (list
12707           (list (concat "'" vhdl-attributes-regexp)           (list (concat "'" vhdl-attributes-regexp) 1 'vhdl-attribute)
                1 'vhdl-font-lock-attribute-face)  
12708           (list vhdl-types-regexp       1 'font-lock-type-face)           (list vhdl-types-regexp       1 'font-lock-type-face)
12709           (list vhdl-functions-regexp   1 'vhdl-font-lock-function-face)           (list vhdl-functions-regexp   1 'vhdl-function)
12710           (list vhdl-packages-regexp    1 'vhdl-font-lock-function-face)           (list vhdl-packages-regexp    1 'vhdl-function)
12711           (list vhdl-enum-values-regexp 1 'vhdl-font-lock-enumvalue-face)           (list vhdl-enum-values-regexp 1 'vhdl-enumvalue)
12712           (list vhdl-keywords-regexp    1 'font-lock-keyword-face)))           (list vhdl-keywords-regexp    1 'font-lock-keyword-face)))
12713    ;; highlight words with special syntax.    ;; highlight words with special syntax.
12714    (setq vhdl-font-lock-keywords-3    (setq vhdl-font-lock-keywords-3
# Line 12708  This does background highlighting of tra Line 12719  This does background highlighting of tra
12719                    (cons                    (cons
12720                     (cons (concat "\\<\\(" (nth 1 (car syntax-alist)) "\\)\\>")                     (cons (concat "\\<\\(" (nth 1 (car syntax-alist)) "\\)\\>")
12721                           (vhdl-function-name                           (vhdl-function-name
12722                            "vhdl-font-lock" (nth 0 (car syntax-alist)) "face"))                            "vhdl" (nth 0 (car syntax-alist))))
12723                     keywords))                     keywords))
12724              (setq syntax-alist (cdr syntax-alist)))              (setq syntax-alist (cdr syntax-alist)))
12725            keywords))            keywords))
12726    ;; highlight additional reserved words    ;; highlight additional reserved words
12727    (setq vhdl-font-lock-keywords-4    (setq vhdl-font-lock-keywords-4
12728          (list (list vhdl-reserved-words-regexp 1          (list (list vhdl-reserved-words-regexp 1 'vhdl-reserved-word)))
                     'vhdl-font-lock-reserved-words-face)))  
12729    ;; highlight everything together    ;; highlight everything together
12730    (setq vhdl-font-lock-keywords    (setq vhdl-font-lock-keywords
12731          (append          (append
# Line 12753  This does background highlighting of tra Line 12763  This does background highlighting of tra
12763    (unless (or (not vhdl-print-customize-faces)    (unless (or (not vhdl-print-customize-faces)
12764                ps-print-color-p)                ps-print-color-p)
12765      (set (make-local-variable 'ps-bold-faces)      (set (make-local-variable 'ps-bold-faces)
12766           '(font-lock-keyword-face           '(font-lock-keyword-face font-lock-type-face
12767             font-lock-type-face             vhdl-attribute vhdl-enumvalue vhdl-directive))
            vhdl-font-lock-attribute-face  
            vhdl-font-lock-enumvalue-face  
            vhdl-font-lock-directive-face))  
12768      (set (make-local-variable 'ps-italic-faces)      (set (make-local-variable 'ps-italic-faces)
12769           '(font-lock-comment-face           '(font-lock-comment-face
12770             font-lock-function-name-face             font-lock-function-name-face font-lock-type-face
12771             font-lock-type-face             vhdl-attribute vhdl-enumvalue vhdl-directive))
            vhdl-font-lock-attribute-face  
            vhdl-font-lock-enumvalue-face  
            vhdl-font-lock-directive-face))  
12772      (set (make-local-variable 'ps-underlined-faces)      (set (make-local-variable 'ps-underlined-faces)
12773           '(font-lock-string-face))           '(font-lock-string-face))
12774      (setq ps-always-build-face-reference t))      (setq ps-always-build-face-reference t))
# Line 13973  otherwise use cached data." Line 13977  otherwise use cached data."
13977           'bracket ?+ 'vhdl-speedbar-expand-entity (nth 0 ent-entry)           'bracket ?+ 'vhdl-speedbar-expand-entity (nth 0 ent-entry)
13978           (nth 1 ent-entry) 'vhdl-speedbar-find-file           (nth 1 ent-entry) 'vhdl-speedbar-find-file
13979           (cons (nth 2 ent-entry) (nth 3 ent-entry))           (cons (nth 2 ent-entry) (nth 3 ent-entry))
13980           'vhdl-speedbar-entity-face depth)           'vhdl-speedbar-entity depth)
13981          (unless (nth 2 ent-entry)          (unless (nth 2 ent-entry)
13982            (end-of-line 0) (insert "!") (forward-char 1))            (end-of-line 0) (insert "!") (forward-char 1))
13983          (unless (member (nth 0 ent-entry) ent-inst-list)          (unless (member (nth 0 ent-entry) ent-inst-list)
# Line 13987  otherwise use cached data." Line 13991  otherwise use cached data."
13991           'bracket ?+ 'vhdl-speedbar-expand-config (nth 0 conf-entry)           'bracket ?+ 'vhdl-speedbar-expand-config (nth 0 conf-entry)
13992           (nth 1 conf-entry) 'vhdl-speedbar-find-file           (nth 1 conf-entry) 'vhdl-speedbar-find-file
13993           (cons (nth 2 conf-entry) (nth 3 conf-entry))           (cons (nth 2 conf-entry) (nth 3 conf-entry))
13994           'vhdl-speedbar-configuration-face depth)           'vhdl-speedbar-configuration depth)
13995          (setq conf-alist (cdr conf-alist)))          (setq conf-alist (cdr conf-alist)))
13996        ;; insert packages        ;; insert packages
13997        (when pack-alist (vhdl-speedbar-make-title-line "Packages:" depth))        (when pack-alist (vhdl-speedbar-make-title-line "Packages:" depth))
# Line 14178  otherwise use cached data." Line 14182  otherwise use cached data."
14182                (cons token (nth 0 arch-entry))                (cons token (nth 0 arch-entry))
14183                (nth 1 arch-entry) 'vhdl-speedbar-find-file                (nth 1 arch-entry) 'vhdl-speedbar-find-file
14184                (cons (nth 2 arch-entry) (nth 3 arch-entry))                (cons (nth 2 arch-entry) (nth 3 arch-entry))
14185                'vhdl-speedbar-architecture-face (1+ indent))                'vhdl-speedbar-architecture (1+ indent))
14186               (setq arch-alist (cdr arch-alist)))               (setq arch-alist (cdr arch-alist)))
14187             ;; insert instantiations             ;; insert instantiations
14188             (when inst-alist             (when inst-alist
# Line 14361  otherwise use cached data." Line 14365  otherwise use cached data."
14365                 (cons token (nth 0 comp-entry))                 (cons token (nth 0 comp-entry))
14366                 (nth 1 comp-entry) 'vhdl-speedbar-find-file                 (nth 1 comp-entry) 'vhdl-speedbar-find-file
14367                 (cons (nth 2 comp-entry) (nth 3 comp-entry))                 (cons (nth 2 comp-entry) (nth 3 comp-entry))
14368                 'vhdl-speedbar-entity-face (1+ indent))                 'vhdl-speedbar-entity (1+ indent))
14369                (setq comp-alist (cdr comp-alist)))                (setq comp-alist (cdr comp-alist)))
14370              ;; insert subprograms              ;; insert subprograms
14371              (when func-alist              (when func-alist
# Line 14477  NO-POSITION non-nil means do not re-posi Line 14481  NO-POSITION non-nil means do not re-posi
14481            (let* ((file-entry (aget file-alist speedbar-last-selected-file t)))            (let* ((file-entry (aget file-alist speedbar-last-selected-file t)))
14482              (vhdl-speedbar-update-units              (vhdl-speedbar-update-units
14483               "\\[.\\] " (nth 0 file-entry)               "\\[.\\] " (nth 0 file-entry)
14484               speedbar-last-selected-file 'vhdl-speedbar-entity-face)               speedbar-last-selected-file 'vhdl-speedbar-entity)
14485              (vhdl-speedbar-update-units              (vhdl-speedbar-update-units
14486               "{.} " (nth 1 file-entry)               "{.} " (nth 1 file-entry)
14487               speedbar-last-selected-file 'vhdl-speedbar-architecture-face)               speedbar-last-selected-file 'vhdl-speedbar-architecture)
14488              (vhdl-speedbar-update-units              (vhdl-speedbar-update-units
14489               "\\[.\\] " (nth 3 file-entry)               "\\[.\\] " (nth 3 file-entry)
14490               speedbar-last-selected-file 'vhdl-speedbar-configuration-face)               speedbar-last-selected-file 'vhdl-speedbar-configuration)
14491              (vhdl-speedbar-update-units              (vhdl-speedbar-update-units
14492               "[]>] " (nth 4 file-entry)               "[]>] " (nth 4 file-entry)
14493               speedbar-last-selected-file 'vhdl-speedbar-package-face)               speedbar-last-selected-file 'vhdl-speedbar-package)
14494              (vhdl-speedbar-update-units              (vhdl-speedbar-update-units
14495               "\\[.\\].+(" '("body")               "\\[.\\].+(" '("body")
14496               speedbar-last-selected-file 'vhdl-speedbar-package-face)               speedbar-last-selected-file 'vhdl-speedbar-package)
14497              (vhdl-speedbar-update-units              (vhdl-speedbar-update-units
14498               "> " (nth 6 file-entry)               "> " (nth 6 file-entry)
14499               speedbar-last-selected-file 'vhdl-speedbar-instantiation-face))               speedbar-last-selected-file 'vhdl-speedbar-instantiation))
14500            ;; highlight current units            ;; highlight current units
14501            (let* ((file-entry (aget file-alist file-name t)))            (let* ((file-entry (aget file-alist file-name t)))
14502              (setq              (setq
14503               pos (vhdl-speedbar-update-units               pos (vhdl-speedbar-update-units
14504                    "\\[.\\] " (nth 0 file-entry)                    "\\[.\\] " (nth 0 file-entry)
14505                    file-name 'vhdl-speedbar-entity-selected-face pos)                    file-name 'vhdl-speedbar-entity-selected pos)
14506               pos (vhdl-speedbar-update-units               pos (vhdl-speedbar-update-units
14507                    "{.} " (nth 1 file-entry)                    "{.} " (nth 1 file-entry)
14508                    file-name 'vhdl-speedbar-architecture-selected-face pos)                    file-name 'vhdl-speedbar-architecture-selected pos)
14509               pos (vhdl-speedbar-update-units               pos (vhdl-speedbar-update-units
14510                    "\\[.\\] " (nth 3 file-entry)                    "\\[.\\] " (nth 3 file-entry)
14511                    file-name 'vhdl-speedbar-configuration-selected-face pos)                    file-name 'vhdl-speedbar-configuration-selected pos)
14512               pos (vhdl-speedbar-update-units               pos (vhdl-speedbar-update-units
14513                    "[]>] " (nth 4 file-entry)                    "[]>] " (nth 4 file-entry)
14514                    file-name 'vhdl-speedbar-package-selected-face pos)                    file-name 'vhdl-speedbar-package-selected pos)
14515               pos (vhdl-speedbar-update-units               pos (vhdl-speedbar-update-units
14516                    "\\[.\\].+(" '("body")                    "\\[.\\].+(" '("body")
14517                    file-name 'vhdl-speedbar-package-selected-face pos)                    file-name 'vhdl-speedbar-package-selected pos)
14518               pos (vhdl-speedbar-update-units               pos (vhdl-speedbar-update-units
14519                    "> " (nth 6 file-entry)                    "> " (nth 6 file-entry)
14520                    file-name 'vhdl-speedbar-instantiation-selected-face pos))))))                    file-name 'vhdl-speedbar-instantiation-selected pos))))))
14521        ;; move speedbar so the first highlighted unit is visible        ;; move speedbar so the first highlighted unit is visible
14522        (when (and pos (not no-position))        (when (and pos (not no-position))
14523          (goto-char pos)          (goto-char pos)
# Line 14564  NO-POSITION non-nil means do not re-posi Line 14568  NO-POSITION non-nil means do not re-posi
14568          (insert "(top)")          (insert "(top)")
14569        (insert inst-name)        (insert inst-name)
14570        (speedbar-make-button        (speedbar-make-button
14571         start (point) 'vhdl-speedbar-instantiation-face 'speedbar-highlight-face         start (point) 'vhdl-speedbar-instantiation 'speedbar-highlight-face
14572         'vhdl-speedbar-find-file inst-file-marker))         'vhdl-speedbar-find-file inst-file-marker))
14573      (insert delimiter)      (insert delimiter)
14574      (when ent-name      (when ent-name
14575        (setq start (point))        (setq start (point))
14576        (insert ent-name)        (insert ent-name)
14577        (speedbar-make-button        (speedbar-make-button
14578         start (point) 'vhdl-speedbar-entity-face 'speedbar-highlight-face         start (point) 'vhdl-speedbar-entity 'speedbar-highlight-face
14579         'vhdl-speedbar-find-file ent-file-marker)         'vhdl-speedbar-find-file ent-file-marker)
14580        (when arch-name        (when arch-name
14581          (insert " (")          (insert " (")
14582          (setq start (point))          (setq start (point))
14583          (insert arch-name)          (insert arch-name)
14584          (speedbar-make-button          (speedbar-make-button
14585           start (point) 'vhdl-speedbar-architecture-face 'speedbar-highlight-face           start (point) 'vhdl-speedbar-architecture 'speedbar-highlight-face
14586           'vhdl-speedbar-find-file arch-file-marker)           'vhdl-speedbar-find-file arch-file-marker)
14587          (insert ")"))          (insert ")"))
14588        (when conf-name        (when conf-name
# Line 14586  NO-POSITION non-nil means do not re-posi Line 14590  NO-POSITION non-nil means do not re-posi
14590          (setq start (point))          (setq start (point))
14591          (insert conf-name)          (insert conf-name)
14592          (speedbar-make-button          (speedbar-make-button
14593           start (point) 'vhdl-speedbar-configuration-face 'speedbar-highlight-face           start (point) 'vhdl-speedbar-configuration 'speedbar-highlight-face
14594           'vhdl-speedbar-find-file conf-file-marker)           'vhdl-speedbar-find-file conf-file-marker)
14595          (insert ")")))          (insert ")")))
14596      (when (and lib-name (not (equal lib-name (downcase (vhdl-work-library)))))      (when (and lib-name (not (equal lib-name (downcase (vhdl-work-library)))))
14597        (setq start (point))        (setq start (point))
14598        (insert " (" lib-name ")")        (insert " (" lib-name ")")
14599        (put-text-property (+ 2 start) (1- (point)) 'face        (put-text-property (+ 2 start) (1- (point)) 'face
14600                           'vhdl-speedbar-library-face))                           'vhdl-speedbar-library))
14601      (insert-char ?\n 1)      (insert-char ?\n 1)
14602      (put-text-property visible-start (point) 'invisible nil)))      (put-text-property visible-start (point) 'invisible nil)))
14603    
# Line 14617  NO-POSITION non-nil means do not re-posi Line 14621  NO-POSITION non-nil means do not re-posi
14621      (setq start (point))      (setq start (point))
14622      (insert pack-name)      (insert pack-name)
14623      (speedbar-make-button      (speedbar-make-button
14624       start (point) 'vhdl-speedbar-package-face 'speedbar-highlight-face       start (point) 'vhdl-speedbar-package 'speedbar-highlight-face
14625       'vhdl-speedbar-find-file pack-file-marker)       'vhdl-speedbar-find-file pack-file-marker)
14626      (unless (car pack-file-marker)      (unless (car pack-file-marker)
14627        (insert "!"))        (insert "!"))
# Line 14626  NO-POSITION non-nil means do not re-posi Line 14630  NO-POSITION non-nil means do not re-posi
14630        (setq start (point))        (setq start (point))
14631        (insert "body")        (insert "body")
14632        (speedbar-make-button        (speedbar-make-button
14633         start (point) 'vhdl-speedbar-package-face 'speedbar-highlight-face         start (point) 'vhdl-speedbar-package 'speedbar-highlight-face
14634         'vhdl-speedbar-find-file body-file-marker)         'vhdl-speedbar-find-file body-file-marker)
14635        (insert ")"))        (insert ")"))
14636      (insert-char ?\n 1)      (insert-char ?\n 1)
# Line 14650  NO-POSITION non-nil means do not re-posi Line 14654  NO-POSITION non-nil means do not re-posi
14654      (setq start (point))      (setq start (point))
14655      (insert pack-name)      (insert pack-name)
14656      (speedbar-make-button      (speedbar-make-button
14657       start (point) 'vhdl-speedbar-package-face 'speedbar-highlight-face       start (point) 'vhdl-speedbar-package 'speedbar-highlight-face
14658       'vhdl-speedbar-find-file pack-file-marker)       'vhdl-speedbar-find-file pack-file-marker)
14659      (setq start (point))      (setq start (point))
14660      (insert " (" lib-name ")")      (insert " (" lib-name ")")
14661      (put-text-property (+ 2 start) (1- (point)) 'face      (put-text-property (+ 2 start) (1- (point)) 'face
14662                         'vhdl-speedbar-library-face)                         'vhdl-speedbar-library)
14663      (insert-char ?\n 1)      (insert-char ?\n 1)
14664      (put-text-property visible-start (point) 'invisible nil)))      (put-text-property visible-start (point) 'invisible nil)))
14665    
# Line 14678  NO-POSITION non-nil means do not re-posi Line 14682  NO-POSITION non-nil means do not re-posi
14682      (setq start (point))      (setq start (point))
14683      (insert func-name)      (insert func-name)
14684      (speedbar-make-button      (speedbar-make-button
14685       start (point) 'vhdl-speedbar-subprogram-face 'speedbar-highlight-face       start (point) 'vhdl-speedbar-subprogram 'speedbar-highlight-face
14686       'vhdl-speedbar-find-file func-file-marker)       'vhdl-speedbar-find-file func-file-marker)
14687      (when (car func-body-file-marker)      (when (car func-body-file-marker)
14688        (insert " (")        (insert " (")
14689        (setq start (point))        (setq start (point))
14690        (insert "body")        (insert "body")
14691        (speedbar-make-button        (speedbar-make-button
14692         start (point) 'vhdl-speedbar-subprogram-face 'speedbar-highlight-face         start (point) 'vhdl-speedbar-subprogram 'speedbar-highlight-face
14693         'vhdl-speedbar-find-file func-body-file-marker)         'vhdl-speedbar-find-file func-body-file-marker)
14694        (insert ")"))        (insert ")"))
14695      (insert-char ?\n 1)      (insert-char ?\n 1)
# Line 14773  NO-POSITION non-nil means do not re-posi Line 14777  NO-POSITION non-nil means do not re-posi
14777          (message          (message
14778           "%s \"%s\" in \"%s\""           "%s \"%s\" in \"%s\""
14779           ;; design unit kind           ;; design unit kind
14780           (cond ((or (eq face 'vhdl-speedbar-entity-face)           (cond ((or (eq face 'vhdl-speedbar-entity)
14781                      (eq face 'vhdl-speedbar-entity-selected-face))                      (eq face 'vhdl-speedbar-entity-selected))
14782                  (if (equal (match-string 2) ">") "Component" "Entity"))                  (if (equal (match-string 2) ">") "Component" "Entity"))
14783                 ((or (eq face 'vhdl-speedbar-architecture-face)                 ((or (eq face 'vhdl-speedbar-architecture)
14784                      (eq face 'vhdl-speedbar-architecture-selected-face))                      (eq face 'vhdl-speedbar-architecture-selected))
14785                  "Architecture")                  "Architecture")
14786                 ((or (eq face 'vhdl-speedbar-configuration-face)                 ((or (eq face 'vhdl-speedbar-configuration)
14787                      (eq face 'vhdl-speedbar-configuration-selected-face))                      (eq face 'vhdl-speedbar-configuration-selected))
14788                  "Configuration")                  "Configuration")
14789                 ((or (eq face 'vhdl-speedbar-package-face)                 ((or (eq face 'vhdl-speedbar-package)
14790                      (eq face 'vhdl-speedbar-package-selected-face))                      (eq face 'vhdl-speedbar-package-selected))
14791                  "Package")                  "Package")
14792                 ((or (eq face 'vhdl-speedbar-instantiation-face)                 ((or (eq face 'vhdl-speedbar-instantiation)
14793                      (eq face 'vhdl-speedbar-instantiation-selected-face))                      (eq face 'vhdl-speedbar-instantiation-selected))
14794                  "Instantiation")                  "Instantiation")
14795                 ((eq face 'vhdl-speedbar-subprogram-face)                 ((eq face 'vhdl-speedbar-subprogram)
14796                  "Subprogram")                  "Subprogram")
14797                 (t ""))                 (t ""))
14798           ;; design unit name           ;; design unit name
# Line 14964  expansion function)." Line 14968  expansion function)."
14968        (speedbar-position-cursor-on-line)        (speedbar-position-cursor-on-line)
14969        (cond ((eq design-unit 'entity)        (cond ((eq design-unit 'entity)
14970               (memq (get-text-property (match-end 0) 'face)               (memq (get-text-property (match-end 0) 'face)
14971                     '(vhdl-speedbar-entity-face                     '(vhdl-speedbar-entity
14972                       vhdl-speedbar-entity-selected-face)))                       vhdl-speedbar-entity-selected)))
14973              ((eq design-unit 'subprogram)              ((eq design-unit 'subprogram)
14974               (eq (get-text-property (match-end 0) 'face)               (eq (get-text-property (match-end 0) 'face)
14975                   'vhdl-speedbar-subprogram-face))                   'vhdl-speedbar-subprogram))
14976              (t nil))))              (t nil))))
14977    
14978  (defun vhdl-speedbar-set-depth (depth)  (defun vhdl-speedbar-set-depth (depth)
# Line 14979  expansion function)." Line 14983  expansion function)."
14983  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14984  ;; Fontification  ;; Fontification
14985    
14986  (defface vhdl-speedbar-entity-face  (defface vhdl-speedbar-entity
14987    '((((class color) (background light)) (:foreground "ForestGreen"))    '((((class color) (background light)) (:foreground "ForestGreen"))
14988      (((class color) (background dark)) (:foreground "PaleGreen")))      (((class color) (background dark)) (:foreground "PaleGreen")))
14989    "Face used for displaying entity names."    "Face used for displaying entity names."
14990    :group 'speedbar-faces)    :group 'speedbar-faces)
14991    ;; backward-compatibility alias
14992    (put 'vhdl-speedbar-entity-face 'face-alias 'vhdl-speedbar-entity)
14993    
14994  (defface vhdl-speedbar-architecture-face  (defface vhdl-speedbar-architecture
14995    '((((min-colors 88) (class color) (background light)) (:foreground "Blue1"))    '((((min-colors 88) (class color) (background light)) (:foreground "Blue1"))
14996      (((class color) (background light)) (:foreground "Blue"))      (((class color) (background light)) (:foreground "Blue"))
14997      (((class color) (background dark)) (:foreground "LightSkyBlue")))      (((class color) (background dark)) (:foreground "LightSkyBlue")))
14998    "Face used for displaying architecture names."    "Face used for displaying architecture names."
14999    :group 'speedbar-faces)    :group 'speedbar-faces)
15000    ;; backward-compatibility alias
15001    (put 'vhdl-speedbar-architecture-face 'face-alias 'vhdl-speedbar-architecture)
15002    
15003  (defface vhdl-speedbar-configuration-face  (defface vhdl-speedbar-configuration
15004    '((((class color) (background light)) (:foreground "DarkGoldenrod"))    '((((class color) (background light)) (:foreground "DarkGoldenrod"))
15005      (((class color) (background dark)) (:foreground "Salmon")))      (((class color) (background dark)) (:foreground "Salmon")))
15006    "Face used for displaying configuration names."    "Face used for displaying configuration names."
15007    :group 'speedbar-faces)    :group 'speedbar-faces)
15008    ;; backward-compatibility alias
15009    (put 'vhdl-speedbar-configuration-face 'face-alias 'vhdl-speedbar-configuration)
15010    
15011  (defface vhdl-speedbar-package-face  (defface vhdl-speedbar-package
15012    '((((class color) (background light)) (:foreground "Grey50"))    '((((class color) (background light)) (:foreground "Grey50"))
15013      (((class color) (background dark)) (:foreground "Grey80")))      (((class color) (background dark)) (:foreground "Grey80")))
15014    "Face used for displaying package names."    "Face used for displaying package names."
15015    :group 'speedbar-faces)    :group 'speedbar-faces)
15016    ;; backward-compatibility alias
15017    (put 'vhdl-speedbar-package-face 'face-alias 'vhdl-speedbar-package)
15018    
15019  (defface vhdl-speedbar-library-face  (defface vhdl-speedbar-library
15020    '((((class color) (background light)) (:foreground "Purple"))    '((((class color) (background light)) (:foreground "Purple"))
15021      (((class color) (background dark)) (:foreground "Orchid1")))      (((class color) (background dark)) (:foreground "Orchid1")))
15022    "Face used for displaying library names."    "Face used for displaying library names."
15023    :group 'speedbar-faces)    :group 'speedbar-faces)
15024    ;; backward-compatibility alias
15025    (put 'vhdl-speedbar-library-face 'face-alias 'vhdl-speedbar-library)
15026    
15027  (defface vhdl-speedbar-instantiation-face  (defface vhdl-speedbar-instantiation
15028    '((((class color) (background light)) (:foreground "Brown"))    '((((class color) (background light)) (:foreground "Brown"))
15029      (((min-colors 88) (class color) (background dark)) (:foreground "Yellow1"))      (((min-colors 88) (class color) (background dark)) (:foreground "Yellow1"))
15030      (((class color) (background dark)) (:foreground "Yellow")))      (((class color) (background dark)) (:foreground "Yellow")))
15031    "Face used for displaying instantiation names."    "Face used for displaying instantiation names."
15032    :group 'speedbar-faces)    :group 'speedbar-faces)
15033    ;; backward-compatibility alias
15034    (put 'vhdl-speedbar-instantiation-face 'face-alias 'vhdl-speedbar-instantiation)
15035    
15036  (defface vhdl-speedbar-subprogram-face  (defface vhdl-speedbar-subprogram
15037    '((((class color) (background light)) (:foreground "Orchid4"))    '((((class color) (background light)) (:foreground "Orchid4"))
15038      (((class color) (background dark)) (:foreground "BurlyWood2")))      (((class color) (background dark)) (:foreground "BurlyWood2")))
15039    "Face used for displaying subprogram names."    "Face used for displaying subprogram names."
15040    :group 'speedbar-faces)    :group 'speedbar-faces)
15041    ;; backward-compatibility alias
15042    (put 'vhdl-speedbar-subprogram-face 'face-alias 'vhdl-speedbar-subprogram)
15043    
15044  (defface vhdl-speedbar-entity-selected-face  (defface vhdl-speedbar-entity-selected
15045    '((((class color) (background light)) (:foreground "ForestGreen" :underline t))    '((((class color) (background light)) (:foreground "ForestGreen" :underline t))
15046      (((class color) (background dark)) (:foreground "PaleGreen" :underline t)))      (((class color) (background dark)) (:foreground "PaleGreen" :underline t)))
15047    "Face used for displaying entity names."    "Face used for displaying entity names."
15048    :group 'speedbar-faces)    :group 'speedbar-faces)
15049    ;; backward-compatibility alias
15050    (put 'vhdl-speedbar-entity-selected-face 'face-alias 'vhdl-speedbar-entity-selected)
15051    
15052  (defface vhdl-speedbar-architecture-selected-face  (defface vhdl-speedbar-architecture-selected
15053    '((((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t))    '((((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t))
15054      (((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t))      (((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t))
15055      (((class color) (background light)) (:foreground "Blue" :underline t))      (((class color) (background light)) (:foreground "Blue" :underline t))
15056      (((class color) (background dark)) (:foreground "LightSkyBlue" :underline t)))      (((class color) (background dark)) (:foreground "LightSkyBlue" :underline t)))
15057    "Face used for displaying architecture names."    "Face used for displaying architecture names."
15058    :group 'speedbar-faces)    :group 'speedbar-faces)
15059    ;; backward-compatibility alias
15060    (put 'vhdl-speedbar-architecture-selected-face 'face-alias 'vhdl-speedbar-architecture-selected)
15061    
15062  (defface vhdl-speedbar-configuration-selected-face  (defface vhdl-speedbar-configuration-selected
15063    '((((class color) (background light)) (:foreground "DarkGoldenrod" :underline t))    '((((class color) (background light)) (:foreground "DarkGoldenrod" :underline t))
15064      (((class color) (background dark)) (:foreground "Salmon" :underline t)))      (((class color) (background dark)) (:foreground "Salmon" :underline t)))
15065    "Face used for displaying configuration names."    "Face used for displaying configuration names."
15066    :group 'speedbar-faces)    :group 'speedbar-faces)
15067    ;; backward-compatibility alias
15068    (put 'vhdl-speedbar-configuration-selected-face 'face-alias 'vhdl-speedbar-configuration-selected)
15069    
15070  (defface vhdl-speedbar-package-selected-face  (defface vhdl-speedbar-package-selected
15071    '((((class color) (background light)) (:foreground "Grey50" :underline t))    '((((class color) (background light)) (:foreground "Grey50" :underline t))
15072      (((class color) (background dark)) (:foreground "Grey80" :underline t)))      (((class color) (background dark)) (:foreground "Grey80" :underline t)))
15073    "Face used for displaying package names."    "Face used for displaying package names."
15074    :group 'speedbar-faces)    :group 'speedbar-faces)
15075    ;; backward-compatibility alias
15076    (put 'vhdl-speedbar-package-selected-face 'face-alias 'vhdl-speedbar-package-selected)
15077    
15078  (defface vhdl-speedbar-instantiation-selected-face  (defface vhdl-speedbar-instantiation-selected
15079    '((((class color) (background light)) (:foreground "Brown" :underline t))    '((((class color) (background light)) (:foreground "Brown" :underline t))
15080      (((min-colors 88) (class color) (background dark)) (:foreground "Yellow1" :underline t))      (((min-colors 88) (class color) (background dark)) (:foreground "Yellow1" :underline t))
15081      (((class color) (background dark)) (:foreground "Yellow" :underline t)))      (((class color) (background dark)) (:foreground "Yellow" :underline t)))
15082    "Face used for displaying instantiation names."    "Face used for displaying instantiation names."
15083    :group 'speedbar-faces)    :group 'speedbar-faces)
15084    ;; backward-compatibility alias
15085    (put 'vhdl-speedbar-instantiation-selected-face 'face-alias 'vhdl-speedbar-instantiation-selected)
15086    
15087  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
15088  ;; Initialization  ;; Initialization

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26