Browse Source

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 years ago
parent
commit
e4d4c6e1bc
1 changed files with 2 additions and 2 deletions
  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")
   (let ((origin (point))
 	(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)
     ;; First move to a visible line.
     (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")
   (let ((origin (point))
 	(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)
     ;; First move to a visible line.
     (if (bound-and-true-p visual-line-mode)