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>
This commit is contained in:
Nicolas Goaziou 2016-10-17 22:55:57 +02:00
parent 8dbee91858
commit e4d4c6e1bc
1 changed files with 2 additions and 2 deletions

View File

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