[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))))