Mercurial > hg > xemacs-beta
comparison lisp/modes/verilog-mode.el @ 177:6075d714658b r20-3b15
Import from CVS: tag r20-3b15
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:51:16 +0200 |
| parents | 28f395d8dc7a |
| children |
comparison
equal
deleted
inserted
replaced
| 176:6866abce6aaf | 177:6075d714658b |
|---|---|
| 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.6 1997/06/14 20:31:18 steve Exp $ | 3 ;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/modes/Attic/verilog-mode.el,v 1.7 1997/07/26 22:09:50 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.6 $$" | 73 (defconst verilog-mode-version "$$Revision: 1.7 $$" |
| 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 ;; |
| 2971 | 2971 |
| 2972 (defun verilog-completion (verilog-str verilog-pred verilog-flag) | 2972 (defun verilog-completion (verilog-str verilog-pred verilog-flag) |
| 2973 (save-excursion | 2973 (save-excursion |
| 2974 (let ((verilog-all nil)) | 2974 (let ((verilog-all nil)) |
| 2975 ;; Set buffer to use for searching labels. This should be set | 2975 ;; Set buffer to use for searching labels. This should be set |
| 2976 ;; within functins which use verilog-completions | 2976 ;; within functions which use verilog-completions |
| 2977 (set-buffer verilog-buffer-to-use) | 2977 (set-buffer verilog-buffer-to-use) |
| 2978 | 2978 |
| 2979 ;; Determine what should be completed | 2979 ;; Determine what should be completed |
| 2980 (let ((state (car (verilog-calculate-indent)))) | 2980 (let ((state (car (verilog-calculate-indent)))) |
| 2981 (cond ((eq state 'defun) | 2981 (cond ((eq state 'defun) |
| 3155 (save-excursion | 3155 (save-excursion |
| 3156 (let ((verilog-all nil) | 3156 (let ((verilog-all nil) |
| 3157 match) | 3157 match) |
| 3158 | 3158 |
| 3159 ;; Set buffer to use for searching labels. This should be set | 3159 ;; Set buffer to use for searching labels. This should be set |
| 3160 ;; within functins which use verilog-completions | 3160 ;; within functions which use verilog-completions |
| 3161 (set-buffer verilog-buffer-to-use) | 3161 (set-buffer verilog-buffer-to-use) |
| 3162 | 3162 |
| 3163 (let ((verilog-str verilog-str)) | 3163 (let ((verilog-str verilog-str)) |
| 3164 ;; Build regular expression for functions | 3164 ;; Build regular expression for functions |
| 3165 (if (string= verilog-str "") | 3165 (if (string= verilog-str "") |