diff options
Diffstat (limited to 'lisp/progmodes/verilog-mode.el')
| -rw-r--r-- | lisp/progmodes/verilog-mode.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index febd0dfed8b..557d587e6f3 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -4071,7 +4071,8 @@ becomes: (and (file-exists-p name) (find-file-noselect name)))))))) (switch-to-buffer buffer) - (goto-line (string-to-number line)) + (goto-char (point-min)) + (forward-line (- (string-to-number line))) (end-of-line) (catch 'already (cond @@ -4136,18 +4137,18 @@ This lets programs calling batch mode to easily extract error messages." (defun verilog-batch-execute-func (funref) "Internal processing of a batch command, running FUNREF on all command arguments." (verilog-batch-error-wrapper + ;; !!! FIXME: Setting global variables like that is *VERY NASTY* !!! --Stef ;; General globals needed (setq make-backup-files nil) (setq-default make-backup-files nil) (setq enable-local-variables t) (setq enable-local-eval t) ;; Make sure any sub-files we read get proper mode - (setq default-major-mode `verilog-mode) + (setq-default major-mode 'verilog-mode) ;; Ditto files already read in (mapc (lambda (buf) (when (buffer-file-name buf) - (save-excursion - (set-buffer buf) + (with-current-buffer buf (verilog-mode)))) (buffer-list)) ;; Process the files @@ -10973,8 +10974,7 @@ and the case items." ;; second (emacs/xemacs) impl.: G. Van der Plas (spice-mode.el) (if (featurep 'xemacs) - (require 'overlay) - (require 'lucid)) ;; what else can we do ?? + (require 'overlay)) (defconst verilog-include-file-regexp "^`include\\s-+\"\\([^\n\"]*\\)\"" |