Skip to content

Commit 4065110

Browse files
author
Carlos G. Cordero
committed
misc: fix comments
1 parent 8d06f64 commit 4065110

1 file changed

Lines changed: 10 additions & 7 deletions

File tree

pacfiles-win.el

Lines changed: 10 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -22,8 +22,8 @@
2222
(defvar pacfiles--empty-buffer-name "*pacfiles:empty-buffer*"
2323
"Empty buffer meant to replace buffers killed in EDIFF windows.
2424
Doing 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

Comments
 (0)