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:
7e37531
)
Support for C-u elpher to have multiple buffers
author
Alex Schroeder
<alex@gnu.org>
Thu, 2 Jul 2020 09:19:55 +0000
(11:19 +0200)
committer
Alex Schroeder
<alex@gnu.org>
Thu, 29 Oct 2020 10:51:30 +0000
(11:51 +0100)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
ecff644
..
77cd67c
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-454,7
+454,7
@@
unless NO-HISTORY is non-nil."
(equal (elpher-page-address elpher-current-page)
(elpher-page-address page)))
(push elpher-current-page elpher-history))
(equal (elpher-page-address elpher-current-page)
(elpher-page-address page)))
(push elpher-current-page elpher-history))
- (setq elpher-current-page page)
+ (setq
-local
elpher-current-page page)
(let* ((address (elpher-page-address page))
(type (elpher-address-type address))
(type-record (cdr (assoc type elpher-type-map))))
(let* ((address (elpher-page-address page))
(type (elpher-address-type address))
(type-record (cdr (assoc type elpher-type-map))))
@@
-521,6
+521,7
@@
unless NO-HISTORY is non-nil."
"Evaluate ARGS with a clean *elpher* buffer as current."
`(with-current-buffer elpher-buffer-name
(unless (eq major-mode 'elpher-mode)
"Evaluate ARGS with a clean *elpher* buffer as current."
`(with-current-buffer elpher-buffer-name
(unless (eq major-mode 'elpher-mode)
+ ;; avoid resetting buffer-local variables
(elpher-mode))
(let ((inhibit-read-only t))
(setq-local network-security-level
(elpher-mode))
(let ((inhibit-read-only t))
(setq-local network-security-level
@@
-1742,8
+1743,8
@@
When run interactively HOST-OR-URL is read from the minibuffer."
(defun elpher-back-to-start ()
"Go all the way back to the start page."
(interactive)
(defun elpher-back-to-start ()
"Go all the way back to the start page."
(interactive)
- (setq elpher-current-page nil)
- (setq elpher-history nil)
+ (setq
-local
elpher-current-page nil)
+ (setq
-local
elpher-history nil)
(let ((start-page (elpher-make-page "Elpher Start Page"
(elpher-make-special-address 'start))))
(elpher-visit-page start-page)))
(let ((start-page (elpher-make-page "Elpher Start Page"
(elpher-make-special-address 'start))))
(elpher-visit-page start-page)))
@@
-2030,10
+2031,10
@@
buffer selected (or created)."
(get-buffer-create name)))))
(pop-to-buffer-same-window buf)
(unless (buffer-modified-p)
(get-buffer-create name)))))
(pop-to-buffer-same-window buf)
(unless (buffer-modified-p)
- (
let ((elpher-buffer-name (buffer-name)); for elpher-with-clean-buffer
-
(start-page (elpher-make-page "Elpher Start Page"
-
(elpher-make-special-address 'start))))
+ (
elpher-mode)
+
(let (
(start-page (elpher-make-page "Elpher Start Page"
+ (elpher-make-special-address 'start))))
(elpher-visit-page start-page))
(elpher-visit-page start-page))
- "Started Elpher.")))
; Otherwise (elpher) evaluates to start page string.
+ "Started Elpher."))); Otherwise (elpher) evaluates to start page string.
;;; elpher.el ends here
;;; elpher.el ends here