gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove the get-number-at-point function

Browse Source 
thing-at-point already has `number-at-point`.
This commit is contained in:
Gergely Polonkai 2023-10-20 14:01:23 +02:00
parent a6bd9c62c2
commit 2c490cfc36
No known key found for this signature in database
GPG Key ID: 2D2885533B869ED4
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
configuration.org
View File

@ -268,17 +268,6 @@ it as early as possible.
** Utility functions ** Utility functions
*** Get the number at point
#+BEGIN_SRC emacs-lisp
(defun get-number-at-point ()
(interactive)
(skip-chars-backward "0123456789.-")
(or (looking-at "[0123456789.-]+")
(error "No number at point"))
(string-to-number (match-string 0)))
#+END_SRC
*** Round number at point to the given decimals *** Round number at point to the given decimals
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -290,7 +279,7 @@ it as early as possible.
(fround (fround
(* (*
mult mult
(get-number-at-point))) (number-at-point)))
mult))))) mult)))))
#+END_SRC #+END_SRC