From da42de650842b2d05da42bbbef9e61e8a747b1ff Mon Sep 17 00:00:00 2001 From: Matt Armstrong Date: Wed, 17 Feb 2021 16:47:18 -0800 Subject: [PATCH 1/4] Remove unecessary (unlock-buffer) calls. * lisp/type-break.el (type-break-mode): Remove an (unlock-buffer) call implied by (set-buffer-modified nil). * lisp/simple.el (primitive-undo): ditto. --- lisp/simple.el | 2 -- lisp/type-break.el | 1 - 2 files changed, 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 26710e6d53..4f5a9c5e83 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3041,8 +3041,6 @@ primitive-undo (and (consp time) (equal (list (car time) (cdr time)) (visited-file-modtime)))) - (when (fboundp 'unlock-buffer) - (unlock-buffer)) (set-buffer-modified-p nil))) ;; Element (nil PROP VAL BEG . END) is property change. (`(nil . ,(or `(,prop ,val ,beg . ,end) pcase--dontcare)) diff --git a/lisp/type-break.el b/lisp/type-break.el index a6d5cd0170..984256d3ce 100644 --- a/lisp/type-break.el +++ b/lisp/type-break.el @@ -395,7 +395,6 @@ type-break-mode (with-current-buffer (find-file-noselect type-break-file-name 'nowarn) (set-buffer-modified-p nil) - (unlock-buffer) (kill-current-buffer)))))) (define-minor-mode type-break-mode-line-message-mode -- 2.30.0