Disable visual-line related junk

I want logical lines now, as opposed to visual lines.

diff --git a/init.el b/init.el
index bd4e7f8e7a842b61721f7d6290bb6555c6cddd87..17daec7ac7793832caa442d5b47d4b39ffc4d12e 100644 (file)
--- a/init.el
+++ b/init.el
@@ -28,7 +28,8 @@
 (add-hook 'c-mode-hook (lambda () (require 're-c-style)))
 
 (setq-default indicate-empty-lines t
-             mouse-prefer-closest-glyph t)
+             mouse-prefer-closest-glyph t
+             line-move-visual nil)
 
 (blink-cursor-mode -1)
 (column-number-mode t)
@@ -36,10 +37,10 @@
 
 (setq delete-by-moving-to-trash t
       delete-pair-blink-delay 0
-      delete-active-region nil)
+      delete-active-region nil
+      scroll-conservatively 101)
 
 ;; Buffer dealiŋ
-;; (delete-selection-mode t)
 (global-acme-mouse-mode t)
 
 (setq disabled-command-function nil

diff --git a/re/re-bindings.el b/re/re-bindings.el
index a11c6e9610db77e07ddc1e8b95e42b82bdc19b43..f3428240f154d7b1618d7908802097f7ededba1c 100644 (file)
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -40,9 +40,7 @@
 (keymap-global-set "<mouse-4>" #'previous-buffer) ; Back button
 (keymap-global-set "C-M-o" #'re/other-window-or-split-window)
 (keymap-global-set "<remap> <move-beginning-of-line>" #'re/smart-beginning-of-line)
-(keymap-global-set "<remap> <move-end-of-line>" #'re/smart-end-of-line)
 (keymap-set visual-line-mode-map "C-a" #'re/smart-beginning-of-line)
-(keymap-set visual-line-mode-map "C-e" #'re/smart-end-of-line)
 (keymap-global-set "<remap> <goto-line>" #'re/goto-line)
 
 ;; Seeking

diff --git a/re/re-editing-defuns.el b/re/re-editing-defuns.el
index f8b68d74f6f81628dbf2bab8a8970ef6578da10d..3b79fd739310cfd4c67f5e8044369c4cc15a16e5 100644 (file)
--- a/re/re-editing-defuns.el
+++ b/re/re-editing-defuns.el
@@ -69,16 +69,16 @@ Stolen from https://depp.brause.cc/dotemacs"
     (call-interactively 'backward-kill-word)))
 
 (defun re/smart-beginning-of-line ()
-  "Move point to first non-whitespace character or `beginning-of-visual-line'.
+  "Move point to first non-whitespace character.
 If point was already at that position, call `back-to-indentation'.
-Called a third time, move point to `beginning-of-line'.
+Called a third time, move point back to `beginning-of-line'.
 If in org-mode, call `org-beginning-of-line' first."
   (interactive "^")
   (let ((oldpos (point)))
     (if (equal major-mode 'org-mode)
        (org-beginning-of-line)
       (progn
-       (beginning-of-visual-line 1)
+       (beginning-of-line 1)
        (skip-syntax-forward " " (line-end-position))
        (backward-prefix-chars)))
     (and (= oldpos (point))
@@ -86,16 +86,6 @@ If in org-mode, call `org-beginning-of-line' first."
           (back-to-indentation)
           (and (= newpos (point)) (beginning-of-line))))))
 
-(defun re/smart-end-of-line ()
-  "Move point to the end of the visual line. If point was already at that position, call `move-end-of-line'.
-If in org-mode, call `org-end-of-line' first."
-  (interactive "^")
-  (let ((oldpos (point)))
-    (if (equal major-mode 'org-mode)
-       (org-end-of-line)
-      (end-of-visual-line 1))
-    (and (= oldpos (point)) (move-end-of-line nil))))
-
 (defun re/goto-line ()
   "Show line numbers before going to line, then hide them again."
   (interactive)

diff --git a/re/re-packages.el b/re/re-packages.el
index 483d8c46f061d3d10b58ee94c7825b7000f5f982..70565fc4d97d9aafa8fb3aad8c39520570028378 100644 (file)
--- a/re/re-packages.el
+++ b/re/re-packages.el
@@ -10,19 +10,6 @@
 (setq use-package-always-ensure t
       use-package-always-demand t)
 
-(use-package visual-fill-column
-  :config
-  (global-visual-line-mode 1)
-  :custom
-  (word-wrap t)
-  (visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))
-  (visual-fill-column-enable-sensible-window-split t))
-
-(keymap-global-set "C-c v"
-                  (lambda nil
-                    (interactive)
-                    (visual-fill-column-mode 'toggle)))
-
 (use-package corfu
   :custom
   (corfu-auto t)