Re: Query Major Mode

[drkm]

Tim Johnson writes:

> (defun previous-subroutine ()
>   (cond
>     (eq major-mode "python")(previous-python-subroutine)
>     (eq major-mode "C")(previous-C-subroutine)
>     (eq major-mode "rebol")(previous-rebol-subroutine)
>   ))

  You can also use something like:

    (defvar previous-subroutine-function 'previous-subroutine-default
      "...")
    (make-variable-buffer-local 'previous-subroutine-function)

    (defun previous-subroutine ()
      "..."
      (funcall previous-subroutine-function ...))

    (defun previous-python-subroutine ()
      ...)
    (add-hook 'python-mode-hook (lambda ()
                                  (setq previous-subroutine-function
                                        previous-python-subroutine)))

    ;; ...

  You can be interested in the mechanism CEDET provides to
overload functions in a per-mode basis.  Cfr. the documentation:
(info "(semantic-langdev)Semantic Overload Mechanism").

--drkm