[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erc-commit] [commit][emacs22] Update from CVS
From: |
mwolson |
Subject: |
[Erc-commit] [commit][emacs22] Update from CVS |
Date: |
Sun, 14 Oct 2007 00:48:04 -0400 |
commit 3524f7c08b70b3ebbc2abe149caf2a50fade12e9
Author: Michael Olson <address@hidden>
Date: Mon Feb 20 03:57:15 2006 +0000
Update from CVS
2006-02-19 Diane Murray <address@hidden>
* erc-button.el (erc-button-keymap): Bind `erc-button-previous' to
<C-tab>.
(erc-button-previous): New function.
git-archimport-id: address@hidden/erc--cvs--0--patch-125
diff --git a/ChangeLog b/ChangeLog
index 63c92ea..92cd064 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2006-02-19 Diane Murray <address@hidden>
+
+ * erc-button.el (erc-button-keymap): Bind `erc-button-previous' to
+ <C-tab>.
+ (erc-button-previous): New function.
+
2006-02-15 Michael Olson <address@hidden>
* NEWS: Add category for ERC 5.2.
diff --git a/erc-button.el b/erc-button.el
index 6d2cd82..e37ca00 100644
--- a/erc-button.el
+++ b/erc-button.el
@@ -68,7 +68,7 @@
;;; Variables
-(defconst erc-button-version "$Revision: 1.73 $"
+(defconst erc-button-version "$Revision: 1.74 $"
"ERC button mode revision.")
(defface erc-button '((t (:bold t)))
@@ -219,6 +219,7 @@ PAR is a number of a regexp grouping whose text will be
passed to
(define-key map (kbd "<button2>") 'erc-button-click-button)
(define-key map (kbd "<mouse-2>") 'erc-button-click-button))
(define-key map (kbd "TAB") 'erc-button-next)
+ (define-key map (kbd "<C-tab>") 'erc-button-previous)
(set-keymap-parent map erc-mode-map)
map)
"Local keymap for ERC buttons.")
@@ -430,6 +431,22 @@ call it with the value of the `erc-data' text property."
(error "No next button"))
t)))
+(defun erc-button-previous ()
+ "Go to the previous button in this buffer."
+ (interactive)
+ (let ((here (point)))
+ (when (< here (erc-beg-of-input-line))
+ (while (and (get-text-property here 'erc-callback)
+ (not (= here (point-min))))
+ (setq here (1- here)))
+ (while (and (not (get-text-property here 'erc-callback))
+ (not (= here (point-min))))
+ (setq here (1- here)))
+ (if (> here (point-min))
+ (goto-char here)
+ (error "No previous button"))
+ t)))
+
(defun erc-browse-emacswiki (thing)
"Browse to thing in the emacs-wiki."
(browse-url (concat erc-emacswiki-url thing)))
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS,
mwolson <=
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14
- [Erc-commit] [commit][emacs22] Update from CVS, mwolson, 2007/10/14