diff options
| author | Deniz Dogan <deniz@dogan.se> | 2011-08-28 08:07:14 +0200 |
|---|---|---|
| committer | Deniz Dogan <deniz@dogan.se> | 2011-08-28 08:07:14 +0200 |
| commit | 27de4e2048fbf2b3df2328faa5594f00f587ac01 (patch) | |
| tree | 5ec8831c6c826c8effe636b2588c349043e23190 /lisp/net | |
| parent | 356a3681816a68e9222dcb8c470a0a7d0620f622 (diff) | |
| download | emacs-27de4e2048fbf2b3df2328faa5594f00f587ac01.tar.gz | |
* lisp/net/rcirc.el (rcirc-insert-prev-input)
(rcirc-insert-next-input): Remove unused argument.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rcirc.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index de2c3adba95..71b3fe0c4a1 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -815,18 +815,19 @@ If SILENT is non-nil, do not print the message in any irc buffer." (defvar rcirc-input-ring nil) (defvar rcirc-input-ring-index 0) + (defun rcirc-prev-input-string (arg) (ring-ref rcirc-input-ring (+ rcirc-input-ring-index arg))) -(defun rcirc-insert-prev-input (arg) - (interactive "p") +(defun rcirc-insert-prev-input () + (interactive) (when (<= rcirc-prompt-end-marker (point)) (delete-region rcirc-prompt-end-marker (point-max)) (insert (rcirc-prev-input-string 0)) (setq rcirc-input-ring-index (1+ rcirc-input-ring-index)))) -(defun rcirc-insert-next-input (arg) - (interactive "p") +(defun rcirc-insert-next-input () + (interactive) (when (<= rcirc-prompt-end-marker (point)) (delete-region rcirc-prompt-end-marker (point-max)) (setq rcirc-input-ring-index (1- rcirc-input-ring-index)) |