Mercurial > hg > xemacs-beta

comparison lisp/modes/vhdl-mode.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 28f395d8dc7a
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
5 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. 5 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
6 6
7 ;; Author: Rodney J. Whitby <rwhitby@asc.corp.mot.com> 7 ;; Author: Rodney J. Whitby <rwhitby@asc.corp.mot.com>
8 ;; Maintainer: Rodney J. Whitby <rwhitby@asc.corp.mot.com> 8 ;; Maintainer: Rodney J. Whitby <rwhitby@asc.corp.mot.com>
9 ;; Created: June 1994, adapted from cc-mode.el 4.29 by Barry A. Warsaw. 9 ;; Created: June 1994, adapted from cc-mode.el 4.29 by Barry A. Warsaw.
10 ;; Version: $Revision: 1.3 $ 10 ;; Version: $Revision: 1.4 $
11 ;; Last Modified: $Date: 1997/05/29 23:49:57 $ 11 ;; Last Modified: $Date: 1997/06/06 00:57:20 $
12 ;; Keywords: languages VHDL 12 ;; Keywords: languages VHDL
13 ;; Archive: ftp.eda.com.au:/pub/emacs/vhdl-mode.tar.gz 13 ;; Archive: ftp.eda.com.au:/pub/emacs/vhdl-mode.tar.gz
14 14
15 ;; NOTE: Read the commentary below for the right way to submit bug reports! 15 ;; NOTE: Read the commentary below for the right way to submit bug reports!
16 16
67 ;; repository for vhdl-mode. 67 ;; repository for vhdl-mode.
68 68
69 ;; LCD Archive Entry: 69 ;; LCD Archive Entry:
70 ;; vhdl-mode.el|Rodney J. Whitby|rwhitby@asc.corp.mot.com 70 ;; vhdl-mode.el|Rodney J. Whitby|rwhitby@asc.corp.mot.com
71 ;; |Major mode for editing VHDL code 71 ;; |Major mode for editing VHDL code
72 ;; |$Date: 1997/05/29 23:49:57 $|$Revision: 1.3 $ 72 ;; |$Date: 1997/06/06 00:57:20 $|$Revision: 1.4 $
73 ;; |ftp.eda.com.au:/pub/emacs/vhdl-mode.tar.gz 73 ;; |ftp.eda.com.au:/pub/emacs/vhdl-mode.tar.gz
74 74
75 75
76 ;;; Code: 76 ;;; Code:
77 77
283 (error "Cannot figure out the major and minor version numbers.")) 283 (error "Cannot figure out the major and minor version numbers."))
284 ;; calculate the major version 284 ;; calculate the major version
285 (cond 285 (cond
286 ((= major 18) (setq major 'v18)) ;Emacs 18 286 ((= major 18) (setq major 'v18)) ;Emacs 18
287 ((= major 4) (setq major 'v18)) ;Epoch 4 287 ((= major 4) (setq major 'v18)) ;Epoch 4
288 ((= major 19) (setq major 'v19 ;Emacs 19 288 ((>= major 19) (setq major 'v19 ;Emacs 19
289 flavor (cond 289 flavor (cond
290 ((string-match "Win-Emacs" emacs-version) 290 ((string-match "Win-Emacs" emacs-version)
291 'Win-Emacs) 291 'Win-Emacs)
292 ((or (string-match "Lucid" emacs-version) 292 ((or (string-match "Lucid" emacs-version)
293 (string-match "XEmacs" emacs-version)) 293 (string-match "XEmacs" emacs-version))
538 ;; Main entry point for VHDL mode: 538 ;; Main entry point for VHDL mode:
539 539
540 ;;;###autoload 540 ;;;###autoload
541 (defun vhdl-mode () 541 (defun vhdl-mode ()
542 "Major mode for editing VHDL code. 542 "Major mode for editing VHDL code.
543 vhdl-mode $Revision: 1.3 $ 543 vhdl-mode $Revision: 1.4 $
544 To submit a problem report, enter `\\[vhdl-submit-bug-report]' from a 544 To submit a problem report, enter `\\[vhdl-submit-bug-report]' from a
545 vhdl-mode buffer. This automatically sets up a mail buffer with version 545 vhdl-mode buffer. This automatically sets up a mail buffer with version
546 information already added. You just need to add a description of the 546 information already added. You just need to add a description of the
547 problem, including a reproducible test case and send the message. 547 problem, including a reproducible test case and send the message.
548 548
2592 (setq list (cdr list))))) 2592 (setq list (cdr list)))))
2593 2593
2594 2594
2595 ;; Defuns for submitting bug reports: 2595 ;; Defuns for submitting bug reports:
2596 2596
2597 (defconst vhdl-version "$Revision: 1.3 $" 2597 (defconst vhdl-version "$Revision: 1.4 $"
2598 "vhdl-mode version number.") 2598 "vhdl-mode version number.")
2599 (defconst vhdl-mode-help-address "rwhitby@asc.corp.mot.com" 2599 (defconst vhdl-mode-help-address "rwhitby@asc.corp.mot.com"
2600 "Address accepting submission of bug reports.") 2600 "Address accepting submission of bug reports.")
2601 2601
2602 (defun vhdl-version () 2602 (defun vhdl-version ()