emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/pyim b080c4abc7 2/3: point-at-bol -> line-beginning-pos


From: ELPA Syncer
Subject: [elpa] externals/pyim b080c4abc7 2/3: point-at-bol -> line-beginning-position
Date: Tue, 6 Sep 2022 04:58:03 -0400 (EDT)

branch: externals/pyim
commit b080c4abc7ae4cb51d9c7c625869dcbfcb10c256
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    point-at-bol -> line-beginning-position
---
 pyim-probe.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pyim-probe.el b/pyim-probe.el
index 90b782ec9f..8b7ff7b35d 100644
--- a/pyim-probe.el
+++ b/pyim-probe.el
@@ -103,7 +103,7 @@
 
 用于:`pyim-english-input-switch-functions' 。"
   (when (eq major-mode 'org-mode)
-    (let ((line-string (buffer-substring (point-at-bol) (point))))
+    (let ((line-string (buffer-substring (line-beginning-position) (point))))
       (and (looking-at "[ \t]*$")
            (string-match "^[ \t]*<\\([a-zA-Z]*\\)$" line-string)))))
 
@@ -167,7 +167,7 @@
   "激活这个 pyim 探针函数后,行首输入标点时,强制输入半角标点。
 
 用于:`pyim-punctuation-half-width-functions' 。"
-  (let ((line-string (buffer-substring (point-at-bol) (point))))
+  (let ((line-string (buffer-substring (line-beginning-position) (point))))
     (and (member (char-to-string char)
                  (mapcar #'car pyim-punctuation-dict))
          (string-match "^[ \t]*$" line-string))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]