[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
goto-mode-abbrev-table
From: |
Andreas Röhler |
Subject: |
goto-mode-abbrev-table |
Date: |
Fri, 26 Oct 2007 21:31:37 +0200 |
User-agent: |
KMail/1.9.5 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- goto-mode-abbrev-table,
Andreas Röhler <=