                       (let ((map (make-sparse-keymap)))
                         (define-key map [mode-line mouse-1] #'modi/verilog-jump-to-header-dwim)
                         (define-key map [mode-line mouse-4] #'modi/verilog-jump-to-header-dwim) ; scroll up
-                        (define-key map [mode-line mouse-2] nil)
-                        (define-key map [mode-line mouse-3] (lambda ()
-                                                              (interactive)
-                                                              (modi/verilog-jump-to-header-dwim '(4))))
-                        (define-key map [mode-line mouse-5] (lambda ()
-                                                              (interactive)
-                                                              (modi/verilog-jump-to-header-dwim '(4)))) ; scroll down
+                        (define-key map [mode-line mouse-2] #'modi/verilog-jump-to-header-dwim-fwd)
+                        (define-key map [mode-line mouse-5] #'modi/verilog-jump-to-header-dwim-fwd) ; scroll down
                         map))
 
           (if modi/verilog-which-func-xtra


;;; modi/verilog-jump-to-header-dwim
    (defun modi/verilog-jump-to-header-dwim (&optional fwd)
      "Jump to a module instantiation header about the current point. If
a module instantiation is not found, jump to a block header if available.

Using the optional argument FWD does the search in forward direction.

;; Time-stamp: <2015-06-04 12:41:14 kmodi>

;;; Verilog

