ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make sure the region in XEmacs stays when using Org's special 

beginning-of-line and end-of-line commands.
This commit is contained in:
Carsten Dominik 2008-06-12 07:49:39 +02:00
parent e3132e37b7
commit b8c3e861ae
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-06-12 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-beginning-of-line, org-end-of-line): Make sure the
zmacs-region stays after this command in XEmacs.
2008-06-11 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-scan-tags): Allow new values for ACTION parameter.

9
lisp/org.el
View File

@ -14051,7 +14051,9 @@ beyond the end of the headline."
(t (point)))
(cond ((> pos (point)) (point))
((not (eq last-command this-command)) (point))
(t (match-end 4))))))))))
(t (match-end 4))))))))
(org-no-warnings
(and (featurep 'xemacs) (setq zmacs-region-stays t)))))
(defun org-end-of-line (&optional arg)
"Go to the end of the line.
@ -14073,7 +14075,10 @@ beyond the end of the headline."
(if (or (< pos (match-end 0)) (not (eq this-command last-command)))
(goto-char (match-end 0))
(goto-char (match-beginning 1))))
(end-of-line arg)))))
(end-of-line arg))))
(org-no-warnings
(and (featurep 'xemacs) (setq zmacs-region-stays t))))
(define-key org-mode-map "\C-a" 'org-beginning-of-line)
(define-key org-mode-map "\C-e" 'org-end-of-line)