Mercurial > hg > xemacs-beta

comparison lisp/modes/vhdl-mode.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 43dd3413c7c7
children 9ad43877534d
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
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.4 $ 10 ;; Version: $Revision: 1.5 $
11 ;; Last Modified: $Date: 1997/06/06 00:57:20 $ 11 ;; Last Modified: $Date: 1997/06/14 20:31:18 $
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/06/06 00:57:20 $|$Revision: 1.4 $ 72 ;; |$Date: 1997/06/14 20:31:18 $|$Revision: 1.5 $
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
345 (define-key vhdl-mode-map "\M-\C-a" 'vhdl-beginning-of-defun) 345 (define-key vhdl-mode-map "\M-\C-a" 'vhdl-beginning-of-defun)
346 (define-key vhdl-mode-map "\M-\C-e" 'vhdl-end-of-defun) 346 (define-key vhdl-mode-map "\M-\C-e" 'vhdl-end-of-defun)
347 (define-key vhdl-mode-map "\M-\C-h" 'vhdl-mark-defun) 347 (define-key vhdl-mode-map "\M-\C-h" 'vhdl-mark-defun)
348 (define-key vhdl-mode-map "\M-\C-q" 'vhdl-indent-sexp) 348 (define-key vhdl-mode-map "\M-\C-q" 'vhdl-indent-sexp)
349 (define-key vhdl-mode-map "\t" 'vhdl-indent-command) 349 (define-key vhdl-mode-map "\t" 'vhdl-indent-command)
350 ;; GDF - leave the DEL key alone!
351 ;; (define-key vhdl-mode-map "\177" 'backward-delete-char-untabify)
352 ;; these are new keybindings, with no counterpart to BOCM 350 ;; these are new keybindings, with no counterpart to BOCM
353 (define-key vhdl-mode-map "\C-c\C-b" 'vhdl-submit-bug-report) 351 (define-key vhdl-mode-map "\C-c\C-b" 'vhdl-submit-bug-report)
354 (define-key vhdl-mode-map "\C-c\C-c" 'comment-region) 352 (define-key vhdl-mode-map "\C-c\C-c" 'comment-region)
355 (define-key vhdl-mode-map "\C-c\C-o" 'vhdl-set-offset) 353 (define-key vhdl-mode-map "\C-c\C-o" 'vhdl-set-offset)
356 (define-key vhdl-mode-map "\C-c\C-r" 'vhdl-regress-line) 354 (define-key vhdl-mode-map "\C-c\C-r" 'vhdl-regress-line)
538 ;; Main entry point for VHDL mode: 536 ;; Main entry point for VHDL mode:
539 537
540 ;;;###autoload 538 ;;;###autoload
541 (defun vhdl-mode () 539 (defun vhdl-mode ()
542 "Major mode for editing VHDL code. 540 "Major mode for editing VHDL code.
543 vhdl-mode $Revision: 1.4 $ 541 vhdl-mode $Revision: 1.5 $
544 To submit a problem report, enter `\\[vhdl-submit-bug-report]' from a 542 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 543 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 544 information already added. You just need to add a description of the
547 problem, including a reproducible test case and send the message. 545 problem, including a reproducible test case and send the message.
548 546
2592 (setq list (cdr list))))) 2590 (setq list (cdr list)))))
2593 2591
2594 2592
2595 ;; Defuns for submitting bug reports: 2593 ;; Defuns for submitting bug reports:
2596 2594
2597 (defconst vhdl-version "$Revision: 1.4 $" 2595 (defconst vhdl-version "$Revision: 1.5 $"
2598 "vhdl-mode version number.") 2596 "vhdl-mode version number.")
2599 (defconst vhdl-mode-help-address "rwhitby@asc.corp.mot.com" 2597 (defconst vhdl-mode-help-address "rwhitby@asc.corp.mot.com"
2600 "Address accepting submission of bug reports.") 2598 "Address accepting submission of bug reports.")
2601 2599
2602 (defun vhdl-version () 2600 (defun vhdl-version ()