diff options
-rw-r--r-- | init.el | 1 | ||||
-rw-r--r-- | lisp/acdw-org.el | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/init.el b/init.el index 8b22910..6eaab7b 100644 --- a/init.el +++ b/init.el | |||
@@ -1625,6 +1625,7 @@ successive invocations." | |||
1625 | (add-hook 'before-save-hook #'acdw-org/fix-blank-lines-in-buffer 0 :local)) | 1625 | (add-hook 'before-save-hook #'acdw-org/fix-blank-lines-in-buffer 0 :local)) |
1626 | 1626 | ||
1627 | (:hook variable-pitch-mode | 1627 | (:hook variable-pitch-mode |
1628 | olivetti-mode | ||
1628 | acdw/org-fix-lines-before-save) | 1629 | acdw/org-fix-lines-before-save) |
1629 | 1630 | ||
1630 | (advice-add 'org-delete-backward-char | 1631 | (advice-add 'org-delete-backward-char |
diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el index 67d6f47..50a0488 100644 --- a/lisp/acdw-org.el +++ b/lisp/acdw-org.el | |||
@@ -373,7 +373,7 @@ instead of the true count." | |||
373 | (let ((point-target (if (> arg 0) | 373 | (let ((point-target (if (> arg 0) |
374 | (point-max) | 374 | (point-max) |
375 | (point-min)))) | 375 | (point-min)))) |
376 | (unless (or (org-next-visible-heading arg) | 376 | (unless (or (org-next-visible-heading arg) ; XXX: this doesn't work!!! ARGH |
377 | (/= (point) point-target)) | 377 | (/= (point) point-target)) |
378 | (when (buffer-narrowed-p) | 378 | (when (buffer-narrowed-p) |
379 | (widen) | 379 | (widen) |