mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* progmodes/verilog-mode.el (verilog-mode-map)

Browse source 
(verilog-template-map, verilog-mode-mouse-map): Fix typos.
(verilog-colorize-include-files): Use only overlay functions so
that it can work on both emacs and XEmacs.
(set-extent-keymap): Remove unused defun.
This commit is contained in:
Dan Nicolaescu 2007-12-08 20:43:01 +00:00
parent 7d49d8e100
commit 30d48f20cd
2 changed files with 20 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,7 +1,11 @@
2007-12-08 Dan Nicolaescu <dann@ics.uci.edu>
* progmodes/verilog-mode.el (verilog-mode-map): Fix typo.
* progmodes/verilog-mode.el (verilog-mode-map)
(verilog-template-map, verilog-mode-mouse-map): Fix typos.
(verilog-colorize-include-files): Use only overlay functions so
that it can work on both emacs and XEmacs.
(set-extent-keymap): Remove unused defun.
* files.el (auto-mode-alist): Recognize verilog files.
* progmodes/verilog-mode.el (verilog-string-replace-matches)

34
lisp/progmodes/verilog-mode.el
View file

@ -909,7 +909,8 @@ If set will become buffer local.")
(define-key map "\C-c\C-s" 'verilog-auto-save-compile)
(define-key map "\C-c\C-z" 'verilog-inject-auto)
(define-key map "\C-c\C-e" 'verilog-expand-vector)
(define-key map "\C-c\C-h" 'verilog-header))
(define-key map "\C-c\C-h" 'verilog-header)
map)
"Keymap used in Verilog mode.")
;; menus
@ -9746,7 +9747,8 @@ Wilson Snyder (wsnyder@wsnyder.org), and/or see http://www.veripool.com."
(define-key map "=" 'verilog-sk-inout)
(define-key map "W" 'verilog-sk-wire)
(define-key map "R" 'verilog-sk-reg)
(define-key map "D" 'verilog-sk-define-signal))
(define-key map "D" 'verilog-sk-define-signal)
map)
"Keymap used in Verilog mode for smart template operations.")
@ -10119,17 +10121,11 @@ and the case items."
(define-key map [mouse-2] 'verilog-load-file-at-mouse))
(if (featurep 'xemacs)
(define-key map 'Sh-button2 'mouse-yank) ; you wanna paste don't you ?
(define-key map [S-mouse-2] 'mouse-yank-at-click)))
(define-key map [S-mouse-2] 'mouse-yank-at-click))
map)
"Map containing mouse bindings for `verilog-mode'.")
;; create set-extent-keymap procedure when it does not exist
(eval-and-compile
(unless (fboundp 'set-extent-keymap)
(defun set-extent-keymap (extent keymap)
"fallback version of set-extent-keymap (for emacs 2[01])"
(set-extent-property extent 'local-map keymap))))
(defun verilog-colorize-include-files (beg end old-len)
"This function colorizes included files when the mouse passes over them.
Clicking on the middle-mouse button loads them in a buffer (as in dired)."
@ -10150,17 +10146,15 @@ Clicking on the middle-mouse button loads them in a buffer (as in dired)."
(setq overlays (cdr overlays)))) ; let
;; make new ones, could reuse deleted one ?
(while (search-forward-regexp verilog-include-file-regexp end-point t)
(let (extent)
(let (ov)
(goto-char (match-beginning 1))
(or (extent-at (point) (buffer-name) 'mouse-face) ;; not yet extended
(progn
(setq extent (make-extent (match-beginning 1) (match-end 1)))
(set-extent-property extent 'start-closed 't)
(set-extent-property extent 'end-closed 't)
(set-extent-property extent 'detachable 't)
(set-extent-property extent 'verilog-include-file 't)
(set-extent-property extent 'mouse-face 'highlight)
(set-extent-keymap extent verilog-mode-mouse-map)))))))))
(setq ov (make-overlay (match-beginning 1) (match-end 1)))
(overlay-put ov 'start-closed 't)
(overlay-put ov 'end-closed 't)
(overlay-put ov 'evaporate 't)
(overlay-put ov 'verilog-include-file 't)
(overlay-put ov 'mouse-face 'highlight)
(overlay-put ov 'local-map verilog-mode-mouse-map)))))))
(defun verilog-colorize-include-files-buffer ()