useが書いているブロックに移動 + 元の場所に戻る elisp

cperl-mib.el

;; move point to 'use section or package'
(defvar cperl/mib-orig-marker (make-marker))
(defun cperl/move-import-block ()
  (interactive)
  (progn
    (set-marker cperl/mib-orig-marker (point-marker))
    (if (re-search-backward "^\\(use\\|package\\)\[ \n\]+\[^;\]+;" nil t)
        (progn
          (goto-char (match-end 0))
          (next-line))
      (goto-char (point-min)))))

(defun cperl/back-to-last-marker ()
  (interactive)
  (goto-char cperl/mib-orig-marker))

(define-key cperl-mode-map (kbd "M-<up>") 'cperl/move-import-block)
(define-key cperl-mode-map (kbd "M-<down>") 'cperl/back-to-last-marker)