[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ec3877ea: Pacify Emacs 29 compiler warnings
From: |
Arash Esbati |
Subject: |
master ec3877ea: Pacify Emacs 29 compiler warnings |
Date: |
Thu, 25 Aug 2022 06:49:40 -0400 (EDT) |
branch: master
commit ec3877ea7f86cf5424e84899a0b34489d2569305
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>
Pacify Emacs 29 compiler warnings
* context.el (ConTeXt-outline-name):
* tex-bar.el (TeX-bar-TeX-buttons, TeX-bar-LaTeX-buttons): Use
`line-beginning-position' instead of `point-at-bol' and
`line-end-position' instead of `point-at-eol' which are obsolete
with Emacs 29.
---
context.el | 4 ++--
tex-bar.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/context.el b/context.el
index de47b9da..50fb1adf 100644
--- a/context.el
+++ b/context.el
@@ -1144,9 +1144,9 @@ An optional fourth (or sixth) element means always
replace if t."
(defun ConTeXt-outline-name ()
"Guess a name for the current header line."
(save-excursion
- (if (re-search-forward "{\\([^\}]*\\)}" (point-at-eol) t)
+ (if (re-search-forward "{\\([^}]*\\)}" (line-end-position) t)
(match-string 1)
- (buffer-substring-no-properties (point) (point-at-eol)))))
+ (buffer-substring-no-properties (point) (line-end-position)))))
;; This imenu also includes commented out chapters. Perhaps a feature
;; for LaTeX, not sure we want or need that for ConTeXt.
diff --git a/tex-bar.el b/tex-bar.el
index a9863f88..9df6c870 100644
--- a/tex-bar.el
+++ b/tex-bar.el
@@ -202,7 +202,7 @@ format of the argument MEANING-ALIST in the mentioned
function."
(insert (format "\n\n`%s' provides the following buttons:\n " (car
i)))
(dolist (j (cdr i))
(insert (format " %s" j)))
- (fill-region (point-at-bol) (point-at-eol))))
+ (fill-region (line-beginning-position) (line-end-position))))
(display-buffer "*TeX tool bar buttons*" t)))
;;; Installation of the tool bar
@@ -342,7 +342,7 @@ format of the argument MEANING-ALIST in the mentioned
function."
(insert (format "\n\n`%s' provides the following buttons:\n " (car
i)))
(dolist (j (cdr i))
(insert (format " %s" j)))
- (fill-region (point-at-bol) (point-at-eol))))
+ (fill-region (line-beginning-position) (line-end-position))))
(display-buffer "*TeX tool bar buttons*" t)))
;;; Installation of the tool bar
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ec3877ea: Pacify Emacs 29 compiler warnings,
Arash Esbati <=