[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r195: Make sure the buffer isn't read-o
From: |
Lars Magne Ingebrigtsen |
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r195: Make sure the buffer isn't read-only before altering. |
Date: |
Wed, 11 Apr 2012 15:13:09 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 195
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: elpa
timestamp: Wed 2012-04-11 15:13:09 +0200
message:
Make sure the buffer isn't read-only before altering.
modified:
packages/debbugs/debbugs-gnu.el
=== modified file 'packages/debbugs/debbugs-gnu.el'
--- a/packages/debbugs/debbugs-gnu.el 2012-04-11 13:10:11 +0000
+++ b/packages/debbugs/debbugs-gnu.el 2012-04-11 13:13:09 +0000
@@ -846,7 +846,8 @@
(defun debbugs-gnu-widen ()
"Display all the currently selected bug reports."
(interactive)
- (let ((id (debbugs-gnu-current-id t)))
+ (let ((id (debbugs-gnu-current-id t))
+ (buffer-read-only nil))
(tabulated-list-init-header)
(tabulated-list-print)
(when id
@@ -856,6 +857,7 @@
"Only display the bugs matching STRING."
(interactive "sNarrow to: ")
(let ((id (debbugs-gnu-current-id t))
+ (buffer-read-only nil)
status)
(debbugs-gnu-widen)
(goto-char (point-min))
@@ -873,7 +875,8 @@
(defun debbugs-gnu-goto (id)
"Go to the line displaying bug ID."
(goto-char (point-min))
- (while (not (equal (debbugs-gnu-current-id t) id))
+ (while (and (not (eobp))
+ (not (equal (debbugs-gnu-current-id t) id)))
(forward-line 1)))
(defun debbugs-gnu-toggle-tag ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r195: Make sure the buffer isn't read-only before altering.,
Lars Magne Ingebrigtsen <=