(defun abbrev-mode (arg) "\ Toggle abbrev mode. With arg, turn abbrev mode on iff arg is positive. In abbrev mode, inserting an abbreviation causes it to expand and be replaced by its expansion." (interactive "P") (byte-code "ˆ ?ƒ ?‚ à !ÄV‰ˆÅÆ !‡" [abbrev-mode arg nil prefix-numeric-value 0 set-buffer-modified-p buffer-modified-p] 4)) (defvar edit-abbrevs-map nil "\ Keymap used in edit-abbrevs.") (if edit-abbrevs-map nil (setq edit-abbrevs-map (make-sparse-keymap)) (define-key edit-abbrevs-map "" (quote edit-abbrevs-redefine)) (define-key edit-abbrevs-map "" (quote edit-abbrevs-redefine))) (defun kill-all-abbrevs nil "\ Undefine all defined abbrevs." (interactive) (byte-code "ˆ … Ã@J!ˆA‰ˆ‚ )‡" [tables abbrev-table-name-list nil clear-abbrev-table] 4)) (defun insert-abbrevs nil "\ Insert after point a description of all defined abbrevs. Mark is set after the inserted text." (interactive) (byte-code "ÈĊ … Å@Â\"ˆA‰ˆ‚ )ˆ`)!‡" [tables abbrev-table-name-list t nil push-mark insert-abbrev-table-description] 5)) (defun list-abbrevs nil "\ Display a list of all defined abbrevs." (interactive) (byte-code "ÀˆÁ !‡" [nil display-buffer prepare-abbrev-list-buffer] 3)) (defun prepare-abbrev-list-buffer nil (byte-code "ŠÄÅ!qˆÆ ˆ … Ç@Â\"ˆA‰ˆ‚ )ˆebˆÈÃ!ˆÉ )ˆÄÅ!‡" [tables abbrev-table-name-list t nil get-buffer-create "*Abbrevs*" erase-buffer insert-abbrev-table-description set-buffer-modified-p edit-abbrevs-mode] 7)) (defun edit-abbrevs-mode nil "\ Major mode for editing the list of abbrev definitions. \\{edit-abbrevs-map}" (interactive) (byte-code "ÈĉˆÅ‰ˆÆ !‡" [major-mode mode-name edit-abbrevs-map nil edit-abbrevs-mode "Edit-Abbrevs" use-local-map] 2)) (defun edit-abbrevs nil "\ Alter abbrev definitions by editing a list of them. Selects a buffer containing a list of abbrev definitions. You can edit them and type C-c C-c to redefine abbrevs according to your editing. Buffer contains a header line for each abbrev table, which is the abbrev table name in parentheses. This is followed by one line per abbrev in that table: NAME USECOUNT EXPANSION HOOK where NAME and EXPANSION are strings with quotes, USECOUNT is an integer, and HOOK is any valid function or may be omitted (it is usually omitted)." (interactive) (byte-code "ÀˆÁ !‡" [nil switch-to-buffer prepare-abbrev-list-buffer] 3)) (defun edit-abbrevs-redefine nil "\ Redefine abbrevs according to current buffer contents." (interactive) (byte-code "ÁˆÂÀ!ˆÃÁ!‡" [t nil define-abbrevs set-buffer-modified-p] 3)) (defun define-abbrevs (&optional arg) "\ Define abbrevs according to current visible buffer contents. See documentation of edit-abbrevs for info on the format of the text you must have in the buffer. With argument, eliminate all abbrev definitions except the ones defined from the buffer now." (interactive "P") (byte-code "Áˆ… Ê ˆŠebˆm?… ËÌÁÂ#…o pÍ!ÁÎÏ!ˆÎÏ!ˆl?…e Í!Í!Í!‰ˆÐÑ!ˆl?…L Í!‰ ˆÐÑ!ˆ F B‰ˆ‚&