mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

* lisp/net/rcirc.el (rcirc-insert-prev-input)

Browse Source 
(rcirc-insert-next-input): Remove unused argument.
This commit is contained in:
Deniz Dogan 2011-08-28 08:07:14 +02:00
parent 356a368181
commit 27de4e2048
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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).

9
lisp/net/rcirc.el
View File

@ -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))