(defun buffer-mode (&optional buffer-or-name)
  "Returns the major mode associated with a buffer. If buffer-name is ni, return
current buffer's mode."
  (buffer-local-value
   'major-mode
   (if buffer-or-name (get-buffer buffer-or-name) (current-buffer))))