This commit is contained in:
Thomas von Dein
2017-07-12 19:09:27 +02:00
parent f5f94a748e
commit d39e9506bf
2 changed files with 624 additions and 610 deletions

17
.emacs
View File

@@ -1,4 +1,4 @@
;; Toms Emacs Config - portable - version (20170712.01) -*-emacs-lisp-*- ;; Toms Emacs Config - portable - version (20170712.02) -*-emacs-lisp-*-
;; * Introduction ;; * Introduction
;; This is my emacs config, it is more than twenty years old. It ;; This is my emacs config, it is more than twenty years old. It
@@ -534,6 +534,10 @@
;; - fixed emacs-change-log ;; - fixed emacs-change-log
;; - added tvd-outshine-end-of-section incl speed command ;; - added tvd-outshine-end-of-section incl speed command
;; 20170712.02:
;; - fixed tvd-outshine-end-of-section, it's way faster now and
;; works without narrowing.
;; ** TODO ;; ** TODO
;; - check helpful https://github.com/wilfred/helpful ;; - check helpful https://github.com/wilfred/helpful
@@ -562,7 +566,7 @@
;; My emacs config has a version (consisting of a timestamp with a ;; My emacs config has a version (consisting of a timestamp with a
;; serial), which I display in the mode line. So I can clearly see, if ;; serial), which I display in the mode line. So I can clearly see, if
;; I'm using an outdated config somewhere. ;; I'm using an outdated config somewhere.
(defvar tvd-emacs-version "20170712.01") (defvar tvd-emacs-version "20170712.02")
;; -------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------
@@ -3442,16 +3446,17 @@ update heading list if neccessary."
(goto-char (cdr (assoc heading tvd-headings))) (goto-char (cdr (assoc heading tvd-headings)))
(tvd-outshine-sparse-tree)))))) (tvd-outshine-sparse-tree))))))
(defun tvd-outshine-end-of-section () (defun tvd-outshine-end-of-section ()
"Jump to the end of an outshine section." "Jump to the end of an outshine section."
(interactive) (interactive)
(let ((end)) (let ((end))
(outline-show-subtree) (outline-show-subtree)
(save-excursion (save-excursion
(outshine-narrow-to-subtree) (outline-next-heading)
(goto-char (point-max)) (when (outline-on-heading-p)
(setq end (point)) (backward-paragraph))
(widen)) (setq end (point)))
(goto-char end))) (goto-char end)))
;; outshine mode config (inside outline mode) ;; outshine mode config (inside outline mode)

1217
emacs.html

File diff suppressed because it is too large Load Diff