mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-03 12:27:26 -05:00
fix: rename {b,e}ol functions to pos-{b,e}ol
These two functions were introduced in emacs-mirror/emacs@f117b5df4d as `bol` and `eol`, but were renamed to `pos-bol` and `pos-eol` in emacs-mirror/emacs@2614e53216. Close: #8242
This commit is contained in:
@ -105,9 +105,10 @@ and return the value found in PLACE instead."
|
||||
,(funcall setter val)
|
||||
,val))))))
|
||||
|
||||
;; Introduced in emacs-mirror/emacs@f117b5df4dc6
|
||||
(unless (fboundp 'bol) (defalias 'bol #'line-beginning-position))
|
||||
(unless (fboundp 'eol) (defalias 'eol #'line-end-position))
|
||||
;; Introduced in emacs-mirror/emacs@f117b5df4dc6, renamed to pos-* in
|
||||
;; emacs-mirror/emacs@2614e5321639
|
||||
(unless (fboundp 'pos-bol) (defalias 'pos-bol #'line-beginning-position))
|
||||
(unless (fboundp 'pos-eol) (defalias 'pos-eol #'line-end-position))
|
||||
|
||||
;; Introduced in Emacs 29+
|
||||
(unless (boundp 'major-mode-remap-alist)
|
||||
|
@ -344,7 +344,7 @@ based on the print level of the message. For example:
|
||||
(letf! (defun current-fill-column ()
|
||||
(let ((target (funcall current-fill-column)))
|
||||
(save-excursion
|
||||
(goto-char (line-beginning-position))
|
||||
(goto-char (pos-bol))
|
||||
(let ((n 0)
|
||||
(c 0))
|
||||
(while (and (not (eolp)) (<= n target))
|
||||
|
@ -200,7 +200,7 @@ narrowing doesn't affect other windows displaying the same buffer. Call
|
||||
Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
|
||||
(interactive (if (region-active-p)
|
||||
(list (doom-region-beginning) (doom-region-end))
|
||||
(list (bol) (eol))))
|
||||
(list (pos-bol) (pos-eol))))
|
||||
(deactivate-mark)
|
||||
(let ((orig-buffer (current-buffer)))
|
||||
(with-current-buffer (switch-to-buffer (clone-indirect-buffer nil nil))
|
||||
@ -241,7 +241,7 @@ If the current buffer is not an indirect buffer, it is `widen'ed."
|
||||
"Narrow the buffer to BEG END. If narrowed, widen it."
|
||||
(interactive (if (region-active-p)
|
||||
(list (doom-region-beginning) (doom-region-end))
|
||||
(list (bol) (eol))))
|
||||
(list (pos-bol) (pos-eol))))
|
||||
(if (buffer-narrowed-p)
|
||||
(widen)
|
||||
(narrow-to-region beg end)))
|
||||
|
@ -197,7 +197,7 @@ If DISABLE? (universal arg), reveal hidden accounts without prompting."
|
||||
(seq-let (beg end) (beancount-find-transaction-extents (point))
|
||||
;; TODO: Highlight entry (ala org-occur)
|
||||
(if (= beg end)
|
||||
(setq end (save-excursion (goto-char end) (1+ (eol)))))
|
||||
(setq end (save-excursion (goto-char end) (1+ (pos-eol)))))
|
||||
(put-text-property start beg 'invisible t)
|
||||
(put-text-property start beg 'display placeholder)
|
||||
(setq start end))))
|
||||
@ -228,7 +228,7 @@ Return non-nil if successful."
|
||||
;; Ensures "jump to top of current transaction" behavior that is
|
||||
;; common for jump-to-previous commands like this in other Emacs modes
|
||||
;; (like org-mode).
|
||||
(or (bolp) (goto-char (eol)))
|
||||
(or (bolp) (goto-char (pos-eol)))
|
||||
(re-search-backward
|
||||
(concat beancount-timestamped-directive-regexp
|
||||
"\\|" beancount-transaction-regexp)))
|
||||
|
@ -66,7 +66,7 @@ Intended to replace `lisp-outline-level'."
|
||||
(re-search-backward
|
||||
"\\_<:\\(?:\\sw\\|\\s_\\)+\\_>" ;; Find a keyword.
|
||||
doom-start 'noerror))
|
||||
(unless (looking-back "(" (bol))
|
||||
(unless (looking-back "(" (pos-bol))
|
||||
(let ((kw-syntax (syntax-ppss)))
|
||||
(when (and (= (ppss-depth kw-syntax) doom-depth)
|
||||
(not (ppss-string-terminator kw-syntax))
|
||||
|
Reference in New Issue
Block a user