]> git.earman.xyz Git - emacsinit.git/commitdiff
Credit to Xah, removed goto-line-with-feedback - no longer needed.
authorrearman <rearman@r717.net>
Wed, 2 Nov 2022 12:57:46 +0000 (08:57 -0400)
committerrearman <rearman@r717.net>
Wed, 2 Nov 2022 12:57:46 +0000 (08:57 -0400)
.gitignore
init.el

index 6cca39d932e219fbad6352b6de364dfc8138ff96..835495d6ad9be973605d7fc3dbd13dc3f1bf808f 100644 (file)
@@ -7,4 +7,5 @@ straight/
 transient/
 url/
 ido.last
-recentf
\ No newline at end of file
+recentf
+work-eqs.el
\ No newline at end of file
diff --git a/init.el b/init.el
index e377d7445c46c97e890b6bd1e679301dcc0d512d..a617ac76b339a54b78def4c7d31135d79ed4b354 100644 (file)
--- a/init.el
+++ b/init.el
              cursor-type 'bar)
 
 ;; DEFUNS
-(defun goto-line-with-feedback ()
-  "Show line numbers, go to selected line, turn off line numbers.
-If line numbers were already on, leave them on."
-  (interactive)
-  (unwind-protect
-      (if (eq t display-line-numbers-mode)
-         (goto-line (read-number "Goto Line: "))
-       (progn
-         (display-line-numbers-mode 1)
-         (goto-line (read-number "Goto Line: "))
-         (display-line-numbers-mode -1)))))
-
 (defun open-line-below ()
   "Creates a new empty line below the current line."
   (interactive)
@@ -143,7 +131,7 @@ Can't go prev line first, edge case of beginning of buffer."
   (join-line 0))
 
 (defun new-empty-buffer ()
-  "Create a new empty buffer."
+  "Create a new empty buffer.  Stolen from Xah."
   (interactive)
   (let ((newbuf (generate-new-buffer "untitled")))
     (switch-to-buffer newbuf)
@@ -193,9 +181,7 @@ Can't go prev line first, edge case of beginning of buffer."
 (global-set-key (kbd "C-c h") 'global-hl-line-mode)
 (global-set-key (kbd "C-c n") 'display-line-numbers-mode)
 (global-set-key (kbd "C-c r") 'recentf-open-files)
-
 ;; OVERRIDES
-(global-set-key [remap goto-line] 'goto-line-with-feedback)
 (global-set-key (kbd "M-j") 'backward-join-line)
 (global-set-key (kbd "M-J") 'join-line)
 (global-set-key (kbd "C-o") 'open-line-below)
@@ -217,7 +203,7 @@ Can't go prev line first, edge case of beginning of buffer."
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
- '(minibuffer-prompt-properties '(read-only t cursor-intangible t face minibuffer-prompt))
+ '(minibuffer-prompt-properties '(read-only t cursor-intangible t face minibuffer-prompt)) ;; Stolen from Xah
  )
 (custom-set-faces
  ;; custom-set-faces was added by Custom.