浏览代码

Fix code typo

* lisp/org.el (org-beginning-of-line):
(org-end-of-line): Fix typo in pattern matching.

Reported-by: Matt Lundin <mdl@imapmail.org>
<http://permalink.gmane.org/gmane.emacs.orgmode/109829>
Nicolas Goaziou 8 年之前
父节点
当前提交
e4d4c6e1bc
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/org.el

+ 2 - 2
lisp/org.el

@@ -23763,7 +23763,7 @@ With argument N not nil or 1, move forward N - 1 lines first."
   (interactive "^p")
   (interactive "^p")
   (let ((origin (point))
   (let ((origin (point))
 	(special (pcase org-special-ctrl-a/e
 	(special (pcase org-special-ctrl-a/e
-		   (`(,C-a . _) C-a) (_ org-special-ctrl-a/e)))
+		   (`(,C-a . ,_) C-a) (_ org-special-ctrl-a/e)))
 	deactivate-mark)
 	deactivate-mark)
     ;; First move to a visible line.
     ;; First move to a visible line.
     (if (bound-and-true-p visual-line-mode)
     (if (bound-and-true-p visual-line-mode)
@@ -23822,7 +23822,7 @@ With argument N not nil or 1, move forward N - 1 lines first."
   (interactive "^p")
   (interactive "^p")
   (let ((origin (point))
   (let ((origin (point))
 	(special (pcase org-special-ctrl-a/e
 	(special (pcase org-special-ctrl-a/e
-		   (`(_ . ,C-e) C-e) (_ org-special-ctrl-a/e)))
+		   (`(,_ . ,C-e) C-e) (_ org-special-ctrl-a/e)))
 	deactivate-mark)
 	deactivate-mark)
     ;; First move to a visible line.
     ;; First move to a visible line.
     (if (bound-and-true-p visual-line-mode)
     (if (bound-and-true-p visual-line-mode)