summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorpsg <>2005-02-08 02:45:13 +0000
committerpsg <>2005-02-08 02:45:13 +0000
commit29900e1341ac47ca3318f394b92c08bcf1f9f12d (patch)
treee206defa5b6aace82677d331288e34b882be8ff1
parent8e14b9c0027ee1306bf8021de7e1c4c699c66e67 (diff)
dpkg-dev-el:
- debian-control-mode.el: Bug fix: "mouse-pasting fails and starts Mozilla in Debian control mode", thanks to Antti-Juhani Kaijanaho (Closes: #293629). I changed the binding from mouse-2 to C-mouse-2.
-rw-r--r--debian-control-mode.el22
1 files changed, 14 insertions, 8 deletions
diff --git a/debian-control-mode.el b/debian-control-mode.el
index 12189ab..53d075f 100644
--- a/debian-control-mode.el
+++ b/debian-control-mode.el
@@ -1,11 +1,12 @@
;;; debian-control-mode.el --- major mode for Debian control files
;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2004 Peter S Galbraith <psg@debian.org>
;; Author: Colin Walters <walters@debian.org>
-;; Maintainer: Colin Walters <walters@debian.org>
+;; Maintainer: Peter S Galbraith <psg@debian.org>
;; Created: 29 Nov 2001
-;; Version: 0.7
+;; Version: 0.8
;; X-RCS: $Id$
;; Keywords: convenience
@@ -31,6 +32,11 @@
;;; Change Log:
+;; V0.8 (2005-02-07) Peter S Galbraith <psg@debian.org>
+;; - Change mouse-2 binding to C-mouse-2 (Closes: #293629)
+;; - Fix debian-control-mode-bugs-mouse-click to create correct
+;; text-properties of package names.
+
;; V0.7 (2004-03-27) Peter S Galbraith <psg@debian.org>
;;
;; * Apply patch from Jhair Tocancipa Triana <jhair_tocancipa@gmx.net>
@@ -202,8 +208,8 @@
(define-key debian-control-mode-map (kbd "C-c C-p") 'debian-control-visit-policy)
(define-key debian-control-mode-map (kbd "C-c C-a") 'debian-control-mode-add-field)
(define-key debian-control-mode-package-name-keymap (if (featurep 'xemacs)
- [down-mouse-2]
- [(mouse-2)])
+ [(control down-mouse-2)]
+ [(C-mouse-2)])
'debian-control-mode-bugs-mouse-click)
(easy-menu-add debian-control-mode-menu)
(if (and (featurep 'goto-addr) goto-address-highlight-p)
@@ -228,8 +234,8 @@
(match-beginning 2) (match-end 2)
`(mouse-face
highlight
- debian-control-mode-package ,(match-string 0)
- help-echo "View bugs for this source package"
+ debian-control-mode-package ,(match-string 2)
+ help-echo "C-mouse-2: View bugs for this source package"
keymap ,debian-control-mode-package-name-keymap)))
((looking-at (concat "^\\(Package:\\)\\s-*"
debian-control-package-name-regexp
@@ -238,8 +244,8 @@
(match-beginning 2) (match-end 2)
`(mouse-face
highlight
- debian-control-mode-package ,(match-string 0)
- help-echo "View bugs for this binary package"
+ debian-control-mode-package ,(match-string 2)
+ help-echo "C-mouse-2: View bugs for this binary package"
keymap ,debian-control-mode-package-name-keymap)))
(t nil))
(forward-line 1)))