summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-10-17 22:55:57 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-10-17 22:55:57 +0200
commite4d4c6e1bc89b284e475ab4a3dc122754cb59dd9 (patch)
treecf1d68f74556eccc64e26db294ea2a6e120048b7
parent8dbee9185867963b13d064e43a569c31d6fc918c (diff)
downloadorg-mode-e4d4c6e1bc89b284e475ab4a3dc122754cb59dd9.tar.gz
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>
-rw-r--r--lisp/org.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 3234175..aaa07cc 100644
--- a/lisp/org.el
+++ b/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)