2222(defvar pacfiles--empty-buffer-name " *pacfiles:empty-buffer*"
2323 " Empty buffer meant to replace buffers killed in EDIFF windows.
2424Doing this replacement avoids having multiple windows open with the same buffer.
25- Having the same buffer open in multiple windows might break the proper killing of
26- EDIFF windows." )
25+ Having the same buffer open in multiple windows might break the proper killing
26+ of EDIFF windows." )
2727
2828(defun pacfiles--display-buffer-fullscreen (buffer alist )
2929 " Display BUFFER fullscreen taking ALIST into account."
@@ -35,12 +35,14 @@ EDIFF windows.")
3535 window))
3636
3737(defun pacfiles--push-window-conf ()
38- " Push the current window configuration to later be restored by `pacfiles--restore-window-conf' ."
38+ " Push the current window configuration to later be restored
39+ by `pacfiles--restore-window-conf' ."
3940 (let ((win-conf (current-window-configuration )))
4041 (push win-conf pacfiles--previous-window-confs)))
4142
4243(defun pacfiles--pop-window-conf ()
43- " Restore the first window configuration found in `pacfiles--previous-window-confs' ."
44+ " Restore the first window configuration found
45+ in `pacfiles--previous-window-confs' ."
4446 (if pacfiles--previous-window-confs
4547 (condition-case nil
4648 (progn
@@ -61,11 +63,12 @@ EDIFF windows.")
6163 (select-window window-c t ) ; buffer-c is made current
6264 (when (and (buffer-modified-p )
6365 (y-or-n-p (format " '%s ' was modified. Save before killing? " (buffer-name ))))
64- (with-file-modes #o700
66+ (with-file-modes #o700
6567 (save-buffer )))
66- (set-buffer-modified-p nil ) ; Set buffer to not modified to not ask user
68+ (set-buffer-modified-p nil ) ; buffer set to " not modified" to kill it without asking the user.
6769 (kill-buffer )
68- (switch-to-buffer empty-buffer))) ; ; Kill file-a and file-b always. We want to explicitly set the current buffer
70+ (switch-to-buffer empty-buffer)))
71+ ; ; Kill file-a and file-b always. We want to explicitly set the current buffer
6972 ; ; ... to make sure that no function in `kill-buffer-query-functions' stops us.
7073 (save-excursion
7174 (select-window window-a t ) ; this makes buffer-a current
0 commit comments