misc-emacs.el

;; assume filename is same as classname
(defun get-class-name ()
  (file-name-nondirectory (file-name-sans-extension buffer-file-name)))

;; insert it interactively
(defun insert-class-name  ()
  (interactive)
  (insert (get-class-name)))

(local-set-key [(meta ?#)] 'insert-class-name)

(require 'semantic/find)
(require 'doc-mode)

(defun doc-tag ()
  (interactive)
  (semantic-mode 1)
  (doc-mode 1) 
  (doc-mode-fix-tag-doc)
  (doc-mode -1)
  (semantic-mode -1))

(local-set-key [(meta f11)] 'doc-tag)