|
|
@@ -7664,8 +7664,8 @@ When NO-OPERATOR is non-nil, do not add the + operator to returned tags."
|
|
|
(defun org-agenda-filter-hide-line (type)
|
|
|
"Hide lines with TYPE in the agenda buffer."
|
|
|
(let (ov)
|
|
|
- (setq ov (make-overlay (max (point-min) (1- (point-at-bol)))
|
|
|
- (point-at-eol)))
|
|
|
+ (setq ov (make-overlay (max (point-min) (point-at-bol))
|
|
|
+ (1+ (point-at-eol))))
|
|
|
(overlay-put ov 'invisible t)
|
|
|
(overlay-put ov 'type type)
|
|
|
(cond ((eq type 'tag) (push ov org-agenda-tag-filter-overlays))
|
|
|
@@ -9192,8 +9192,8 @@ Called with a universal prefix arg, show the priority instead of setting it."
|
|
|
(1- (point)) (point-at-eol)
|
|
|
(list 'display (org-add-props stamp nil
|
|
|
'face 'secondary-selection))))
|
|
|
- (beginning-of-line 1))
|
|
|
- (beginning-of-line 0)))))
|
|
|
+ (move-beginning-of-line 1))
|
|
|
+ (move-beginning-of-line 0)))))
|
|
|
|
|
|
(defun org-agenda-date-prompt (arg)
|
|
|
"Change the date of this item. Date is prompted for, with default today.
|
|
|
@@ -9955,23 +9955,25 @@ current HH:MM time."
|
|
|
"Drag an agenda line forward by ARG lines.
|
|
|
When the optional argument `backward' is non-nil, move backward."
|
|
|
(interactive "p")
|
|
|
- (let ((inhibit-read-only t) lst line)
|
|
|
+ (let ((inhibit-read-only t) lst)
|
|
|
(if (or (not (get-text-property (point) 'txt))
|
|
|
(save-excursion
|
|
|
(dotimes (n arg)
|
|
|
(move-beginning-of-line (if backward 0 2))
|
|
|
+ (forward-char 1)
|
|
|
(push (not (get-text-property (point) 'txt)) lst))
|
|
|
(delq nil lst)))
|
|
|
- (message "Cannot move line forward")
|
|
|
- (let ((end (save-excursion (move-beginning-of-line 2) (point))))
|
|
|
+ (message "Cannot move line %s" (if backward "backward" "forward"))
|
|
|
+ (let ((end (save-excursion (move-end-of-line 1) (point)))
|
|
|
+ (col (current-column)) line)
|
|
|
(move-beginning-of-line 1)
|
|
|
(setq line (buffer-substring (point) end))
|
|
|
- (delete-region (point) end)
|
|
|
- (move-beginning-of-line (funcall (if backward '1- '1+) arg))
|
|
|
- (insert line)
|
|
|
+ (delete-region (point) (1+ end))
|
|
|
+ (move-end-of-line (funcall (if backward '1- '1+) (1- arg)))
|
|
|
+ (insert "\n" line)
|
|
|
+ (org-move-to-column col)
|
|
|
(org-agenda-reapply-filters)
|
|
|
- (org-agenda-mark-clocking-task)
|
|
|
- (move-beginning-of-line 0)))))
|
|
|
+ (org-agenda-mark-clocking-task)))))
|
|
|
|
|
|
(defun org-agenda-drag-line-backward (arg)
|
|
|
"Drag an agenda line backward by ARG lines."
|
Bastien Guerry