The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a20dd6f
)
Fixed indenting of history page headers.
author
plugd
<plugd@thelambdalab.xyz>
Wed, 28 Jul 2021 11:17:57 +0000
(13:17 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Wed, 28 Jul 2021 11:17:57 +0000
(13:17 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
7577489
..
1c42937
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-1757,7
+1757,7
@@
This is rendered using `elpher-get-visited-pages-page' via `elpher-type-map'."
(defun elpher-display-history-links (pages title)
"Show all PAGES in an Elpher buffer with a given TITLE."
(defun elpher-display-history-links (pages title)
"Show all PAGES in an Elpher buffer with a given TITLE."
- (let* ((title-line (concat "---- " title " ----"))
+ (let* ((title-line (concat "
---- " title " ----"))
(footer-line (make-string (length title-line) ?-)))
(elpher-with-clean-buffer
(insert title-line "\n\n")
(footer-line (make-string (length title-line) ?-)))
(elpher-with-clean-buffer
(insert title-line "\n\n")
@@
-1768,7
+1768,7
@@
This is rendered using `elpher-get-visited-pages-page' via `elpher-type-map'."
(address (elpher-page-address page)))
(elpher-insert-index-record display-string address))))
(insert "No history items found.\n"))
(address (elpher-page-address page)))
(elpher-insert-index-record display-string address))))
(insert "No history items found.\n"))
- (insert "\n" footer-line "\n"
+ (insert "\n
" footer-line "\n"
"Select an entry or press 'u' to return to the previous page.")
(elpher-restore-pos))))
"Select an entry or press 'u' to return to the previous page.")
(elpher-restore-pos))))