Mercurial > hg > xemacs-beta

comparison lisp/modes/vhdl-mode.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 360340f9fd5f
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
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.2 $ 10 ;; Version: $Revision: 1.3 $
11 ;; Last Modified: $Date: 1997/03/08 23:26:29 $ 11 ;; Last Modified: $Date: 1997/05/29 23:49:57 $
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/03/08 23:26:29 $|$Revision: 1.2 $ 72 ;; |$Date: 1997/05/29 23:49:57 $|$Revision: 1.3 $
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 (define-key vhdl-mode-map "\177" 'backward-delete-char-untabify) 350 ;; GDF - leave the DEL key alone!
351 ;; (define-key vhdl-mode-map "\177" 'backward-delete-char-untabify)
351 ;; these are new keybindings, with no counterpart to BOCM 352 ;; these are new keybindings, with no counterpart to BOCM
352 (define-key vhdl-mode-map "\C-c\C-b" 'vhdl-submit-bug-report) 353 (define-key vhdl-mode-map "\C-c\C-b" 'vhdl-submit-bug-report)
353 (define-key vhdl-mode-map "\C-c\C-c" 'comment-region) 354 (define-key vhdl-mode-map "\C-c\C-c" 'comment-region)
354 (define-key vhdl-mode-map "\C-c\C-o" 'vhdl-set-offset) 355 (define-key vhdl-mode-map "\C-c\C-o" 'vhdl-set-offset)
355 (define-key vhdl-mode-map "\C-c\C-r" 'vhdl-regress-line) 356 (define-key vhdl-mode-map "\C-c\C-r" 'vhdl-regress-line)
537 ;; Main entry point for VHDL mode: 538 ;; Main entry point for VHDL mode:
538 539
539 ;;;###autoload 540 ;;;###autoload
540 (defun vhdl-mode () 541 (defun vhdl-mode ()
541 "Major mode for editing VHDL code. 542 "Major mode for editing VHDL code.
542 vhdl-mode $Revision: 1.2 $ 543 vhdl-mode $Revision: 1.3 $
543 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
544 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
545 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
546 problem, including a reproducible test case and send the message. 547 problem, including a reproducible test case and send the message.
547 548
2591 (setq list (cdr list))))) 2592 (setq list (cdr list)))))
2592 2593
2593 2594
2594 ;; Defuns for submitting bug reports: 2595 ;; Defuns for submitting bug reports:
2595 2596
2596 (defconst vhdl-version "$Revision: 1.2 $" 2597 (defconst vhdl-version "$Revision: 1.3 $"
2597 "vhdl-mode version number.") 2598 "vhdl-mode version number.")
2598 (defconst vhdl-mode-help-address "rwhitby@asc.corp.mot.com" 2599 (defconst vhdl-mode-help-address "rwhitby@asc.corp.mot.com"
2599 "Address accepting submission of bug reports.") 2600 "Address accepting submission of bug reports.")
2600 2601
2601 (defun vhdl-version () 2602 (defun vhdl-version ()