Mercurial > emacs
comparison lisp/net/rcirc.el @ 91688:dc73ee82d684
(rcirc-omit-mode): Suppress invisibility ellipsis
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1061
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 09 Feb 2008 03:52:59 +0000 |
| parents | 107ccd98fa12 |
| children | f991f10f15ec |
comparison
equal
deleted
inserted
replaced
| 91687:d125b90283d2 | 91688:dc73ee82d684 |
|---|---|
| 1676 `rcirc-omit-responses'." | 1676 `rcirc-omit-responses'." |
| 1677 (interactive) | 1677 (interactive) |
| 1678 (setq rcirc-omit-mode (not rcirc-omit-mode)) | 1678 (setq rcirc-omit-mode (not rcirc-omit-mode)) |
| 1679 (if rcirc-omit-mode | 1679 (if rcirc-omit-mode |
| 1680 (progn | 1680 (progn |
| 1681 (add-to-invisibility-spec '(rcirc-omit . t)) | 1681 (add-to-invisibility-spec '(rcirc-omit . nil)) |
| 1682 (message "Rcirc-Omit mode enabled")) | 1682 (message "Rcirc-Omit mode enabled")) |
| 1683 (remove-from-invisibility-spec '(rcirc-omit . t)) | 1683 (remove-from-invisibility-spec '(rcirc-omit . nil)) |
| 1684 (message "Rcirc-Omit mode disabled")) | 1684 (message "Rcirc-Omit mode disabled")) |
| 1685 (recenter (when (> (point) rcirc-prompt-start-marker) -1))) | 1685 (recenter (when (> (point) rcirc-prompt-start-marker) -1))) |
| 1686 | 1686 |
| 1687 (defun rcirc-switch-to-server-buffer () | 1687 (defun rcirc-switch-to-server-buffer () |
| 1688 "Switch to the server buffer associated with current channel buffer." | 1688 "Switch to the server buffer associated with current channel buffer." |