goto-mode-abbrev-table

[Andreas Röhler]

Editing abbrevs is a lot easier since I use this:

(defun goto-mode-abbrev-table (&optional ispec)
  "Goto mode abbrevs in \"\*Abbrevs\*\" "
  (interactive "p")
  (save-excursion
    (let ((mat (abbrev-table-name local-abbrev-table)))
      (prepare-abbrev-list-buffer)
      (set-buffer "*Abbrevs*")
      (when ispec 
        (switch-to-buffer (current-buffer))) 
      (widen)
      (goto-char (point-min)) 
      (search-forward (concat "(" (format "%s" mat))))))

Maybe it's useful for others too.


Andreas Röhler