Mercurial > emacs
comparison lisp/progmodes/verilog-mode.el @ 108774:895ee2ff8cc3
Merge from mainline.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 25 May 2010 07:23:37 +0000 |
| parents | d835100c3e8b |
| children | 9b941507a02c |
comparison
equal
deleted
inserted
replaced
| 108758:2903660f846b | 108774:895ee2ff8cc3 |
|---|---|
| 9303 (cond (did-first | 9303 (cond (did-first |
| 9304 (re-search-backward "," pt t) | 9304 (re-search-backward "," pt t) |
| 9305 (delete-char 1) | 9305 (delete-char 1) |
| 9306 (insert ");") | 9306 (insert ");") |
| 9307 (search-forward "\n") ;; Added by inst-port | 9307 (search-forward "\n") ;; Added by inst-port |
| 9308 (delete-backward-char 1) | 9308 (delete-char -1) |
| 9309 (if (search-forward ")" nil t) ;; From user, moved up a line | 9309 (if (search-forward ")" nil t) ;; From user, moved up a line |
| 9310 (delete-backward-char 1)) | 9310 (delete-char -1)) |
| 9311 (if (search-forward ";" nil t) ;; Don't error if user had syntax error and forgot it | 9311 (if (search-forward ";" nil t) ;; Don't error if user had syntax error and forgot it |
| 9312 (delete-backward-char 1))))))))) | 9312 (delete-char -1))))))))) |
| 9313 | 9313 |
| 9314 (defun verilog-auto-inst-param () | 9314 (defun verilog-auto-inst-param () |
| 9315 "Expand AUTOINSTPARAM statements, as part of \\[verilog-auto]. | 9315 "Expand AUTOINSTPARAM statements, as part of \\[verilog-auto]. |
| 9316 Replace the parameter connections to an instantiation with ones | 9316 Replace the parameter connections to an instantiation with ones |
| 9317 automatically derived from the module header of the instantiated netlist. | 9317 automatically derived from the module header of the instantiated netlist. |
| 9410 (cond (did-first | 9410 (cond (did-first |
| 9411 (re-search-backward "," pt t) | 9411 (re-search-backward "," pt t) |
| 9412 (delete-char 1) | 9412 (delete-char 1) |
| 9413 (insert ")") | 9413 (insert ")") |
| 9414 (search-forward "\n") ;; Added by inst-port | 9414 (search-forward "\n") ;; Added by inst-port |
| 9415 (delete-backward-char 1) | 9415 (delete-char -1) |
| 9416 (if (search-forward ")" nil t) ;; From user, moved up a line | 9416 (if (search-forward ")" nil t) ;; From user, moved up a line |
| 9417 (delete-backward-char 1))))))))) | 9417 (delete-char -1))))))))) |
| 9418 | 9418 |
| 9419 (defun verilog-auto-reg () | 9419 (defun verilog-auto-reg () |
| 9420 "Expand AUTOREG statements, as part of \\[verilog-auto]. | 9420 "Expand AUTOREG statements, as part of \\[verilog-auto]. |
| 9421 Make reg statements for any output that isn't already declared, | 9421 Make reg statements for any output that isn't already declared, |
| 9422 and isn't a wire output from a block. | 9422 and isn't a wire output from a block. |