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 | |
| parent | 356a3681816a68e9222dcb8c470a0a7d0620f622 (diff) | |
| download | emacs-27de4e2048fbf2b3df2328faa5594f00f587ac01.tar.gz | |
* lisp/net/rcirc.el (rcirc-insert-prev-input)
(rcirc-insert-next-input): Remove unused argument.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/rcirc.el | 9 |
2 files changed, 10 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 552c3f5c088..3840e299cb1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-08-28 Deniz Dogan <deniz@dogan.se> + + * net/rcirc.el (rcirc-insert-prev-input) + (rcirc-insert-next-input): Remove unused argument. + 2011-08-28 Stefan Monnier <monnier@iro.umontreal.ca> * shell.el (shell-parse-pcomplete-arguments): Unquote args (bug#9160). 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)) |