[Top][All Lists]

[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)
        (insert (ebdb-fmt-header fmt records))
         (dolist (record ebdb-records)
@@ -927,7 +928,8 @@ displayed 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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]