[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb ae40502 2/5: Use inhibit-read-only
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb ae40502 2/5: Use inhibit-read-only |
Date: |
Tue, 24 Apr 2018 16:26:59 -0400 (EDT) |
branch: externals/ebdb
commit ae4050260743304004f4481b56931663e44265a7
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Use inhibit-read-only
* ebdb-com.el (ebdb-display-records, ebdb-redisplay-records): Instead
of let-binding buffer-read-only.
---
ebdb-com.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/ebdb-com.el b/ebdb-com.el
index 6f4941f..b543c85 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -789,7 +789,8 @@ name based on the current major mode."
(unless (or ebdb-silent-internal ebdb-silent)
(message "Formatting EBDB..."))
(let ((record-number 0)
- buffer-read-only start)
+ (inhibit-read-only t)
+ start)
(erase-buffer)
(insert (ebdb-fmt-header fmt records))
(dolist (record ebdb-records)
@@ -927,7 +928,8 @@ displayed records."
records)))
(dolist (b bufs)
(with-current-buffer b
- (let (renumber buffer-read-only)
+ (let ((inhibit-read-only t)
+ renumber)
(dolist (r records)
(catch 'bail
;; Find the location of record in this buffer. The