update packages
This commit is contained in:
@@ -243,14 +243,21 @@ FILE has to be relative to the top directory of the repository."
|
||||
(buffer-local-value 'buffer-file-coding-system bufC))
|
||||
(bufA (magit-ediff--find-file "HEAD" file))
|
||||
(bufB (magit-ediff--find-file "{index}" file))
|
||||
(lockB (buffer-local-value 'buffer-read-only bufB)))
|
||||
(with-current-buffer bufB (setq buffer-read-only nil))
|
||||
(lockB (buffer-local-value 'buffer-read-only bufB))
|
||||
(modeB (buffer-local-value 'magit-blob-mode bufB)))
|
||||
(with-current-buffer bufB
|
||||
;; Make writable and don't shadow self-insert-command.
|
||||
(magit-blob-mode -1))
|
||||
(magit-ediff-buffers
|
||||
bufA bufB bufC nil
|
||||
(lambda ()
|
||||
(when (buffer-live-p ediff-buffer-B)
|
||||
(when lockB
|
||||
(with-current-buffer bufB (setq buffer-read-only t)))
|
||||
(with-current-buffer bufB
|
||||
(if modeB
|
||||
(magit-blob-mode 1)
|
||||
(setq-local buffer-read-only t)
|
||||
(setq-local read-only-mode--state t))))
|
||||
(when (buffer-modified-p ediff-buffer-B)
|
||||
(with-current-buffer ediff-buffer-B
|
||||
(magit-update-index))))
|
||||
@@ -562,11 +569,15 @@ is done setting up buffers."
|
||||
;; Local Variables:
|
||||
;; read-symbol-shorthands: (
|
||||
;; ("and$" . "cond-let--and$")
|
||||
;; ("and>" . "cond-let--and>")
|
||||
;; ("and-let" . "cond-let--and-let")
|
||||
;; ("if-let" . "cond-let--if-let")
|
||||
;; ("thread$" . "cond-let--thread$")
|
||||
;; ("when$" . "cond-let--when$")
|
||||
;; ("and-let*" . "cond-let--and-let*")
|
||||
;; ("and-let" . "cond-let--and-let")
|
||||
;; ("if-let*" . "cond-let--if-let*")
|
||||
;; ("if-let" . "cond-let--if-let")
|
||||
;; ("when-let*" . "cond-let--when-let*")
|
||||
;; ("when-let" . "cond-let--when-let")
|
||||
;; ("while-let*" . "cond-let--while-let*")
|
||||
;; ("while-let" . "cond-let--while-let")
|
||||
;; ("match-string" . "match-string")
|
||||
;; ("match-str" . "match-string-no-properties"))
|
||||
|
||||
Reference in New Issue
Block a user