Mercurial > hg > xemacs-beta

comparison lisp/modes/verilog-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 25f70ba0133c
children 6075d714658b
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
1 ;;; verilog-mode.el --- major mode for editing verilog source in Emacs 1 ;;; verilog-mode.el --- major mode for editing verilog source in Emacs
2 ;; 2 ;;
3 ;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/modes/Attic/verilog-mode.el,v 1.5 1997/05/29 23:49:56 steve Exp $ 3 ;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/modes/Attic/verilog-mode.el,v 1.6 1997/06/14 20:31:18 steve Exp $
4 4
5 ;; Copyright (C) 1996 Free Software Foundation, Inc. 5 ;; Copyright (C) 1996 Free Software Foundation, Inc.
6 6
7 ;; Author: Michael McNamara (mac@silicon-sorcery.com) 7 ;; Author: Michael McNamara (mac@silicon-sorcery.com)
8 ;; President, Silicon Sorcery 8 ;; President, Silicon Sorcery
68 ;;; Code: 68 ;;; Code:
69 69
70 (provide 'verilog-mode) 70 (provide 'verilog-mode)
71 71
72 ;; This variable will always hold the version number of the mode 72 ;; This variable will always hold the version number of the mode
73 (defconst verilog-mode-version "$$Revision: 1.5 $$" 73 (defconst verilog-mode-version "$$Revision: 1.6 $$"
74 "Version of this verilog mode.") 74 "Version of this verilog mode.")
75 75
76 ;; 76 ;;
77 ;; A hack so we can support either custom, or the old defvar 77 ;; A hack so we can support either custom, or the old defvar
78 ;; 78 ;;
262 (define-key verilog-mode-map "\r" 'electric-verilog-terminate-line) 262 (define-key verilog-mode-map "\r" 'electric-verilog-terminate-line)
263 (define-key verilog-mode-map "\M-\C-b" 'electric-verilog-backward-sexp) 263 (define-key verilog-mode-map "\M-\C-b" 'electric-verilog-backward-sexp)
264 (define-key verilog-mode-map "\M-\C-f" 'electric-verilog-forward-sexp) 264 (define-key verilog-mode-map "\M-\C-f" 'electric-verilog-forward-sexp)
265 (define-key verilog-mode-map "\M-\r" (function (lambda () 265 (define-key verilog-mode-map "\M-\r" (function (lambda ()
266 (interactive) (electric-verilog-terminate-line 1)))) 266 (interactive) (electric-verilog-terminate-line 1))))
267 ;; GDF - Leave the DEL key alone
268 ;; (define-key verilog-mode-map "\177" 'backward-delete-char-untabify)
269 (define-key verilog-mode-map "\M-\t" 'verilog-complete-word) 267 (define-key verilog-mode-map "\M-\t" 'verilog-complete-word)
270 (define-key verilog-mode-map "\M-?" 'verilog-show-completions) 268 (define-key verilog-mode-map "\M-?" 'verilog-show-completions)
271 (define-key verilog-mode-map "\M-\C-h" 'verilog-mark-defun) 269 (define-key verilog-mode-map "\M-\C-h" 'verilog-mark-defun)
272 (define-key verilog-mode-map "\C-c\C-b" 'verilog-insert-block) 270 (define-key verilog-mode-map "\C-c\C-b" 'verilog-insert-block)
273 (define-key verilog-mode-map "\C-cb" 'verilog-label-be) 271 (define-key verilog-mode-map "\C-cb" 'verilog-label-be)