blob: 85b250549ad48a896bbc285cafd403a7f7531d4e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(defun xcpu-deb-open-bug ()
"Open the bug under the cursor in the debian bts"
(interactive)
(let* (
(bounds (bounds-of-thing-at-point 'symbol))
(text (if bounds
(buffer-substring (car bounds) (cdr bounds))
(read-string "Debian Number: ")))
(url (concat "http://bugs.debian.org/" text))
)
(browse-url url)
))
|