浏览代码

Minor visual improvements.

org.el (org-offer-links-in-entry): Don't use "Select link" as a prompt
in the temporary window.

org-agenda.el (org-agenda-bulk-mark): Use a slightly soberer prefix for
marked entries in the agenda view.
Bastien Guerry 15 年之前
父节点
当前提交
84c2435968
共有 3 个文件被更改,包括 9 次插入2 次删除
  1. 8 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-agenda.el
  3. 0 1
      lisp/org.el

+ 8 - 0
lisp/ChangeLog

@@ -1,3 +1,11 @@
+2009-09-08  Bastien Guerry  <bzg@altern.org>
+
+	* org.el (org-offer-links-in-entry): Don't use "Select link" as a
+	prompt in the temporary window.
+
+	* org-agenda.el (org-agenda-bulk-mark): Use a slightly soberer
+	prefix for marked entries in the agenda view.
+
 2009-09-07  Andreas Burtzlaff <andy13@gmx.net>  (tiny change)
 2009-09-07  Andreas Burtzlaff <andy13@gmx.net>  (tiny change)
 
 
 	* org.el (outline-end-of-subtree): Bugfix: advise this function in
 	* org.el (outline-end-of-subtree): Bugfix: advise this function in

+ 1 - 1
lisp/org-agenda.el

@@ -6559,7 +6559,7 @@ This is a command that has to be installed in `calendar-mode-map'."
       (unless m (error "Nothing to mark at point"))
       (unless m (error "Nothing to mark at point"))
       (push m org-agenda-bulk-marked-entries)
       (push m org-agenda-bulk-marked-entries)
       (setq ov (org-make-overlay (point-at-bol) (+ 2 (point-at-bol))))
       (setq ov (org-make-overlay (point-at-bol) (+ 2 (point-at-bol))))
-      (org-overlay-display ov ">>"
+      (org-overlay-display ov "> "
 			   (org-get-todo-face "TODO")
 			   (org-get-todo-face "TODO")
 			   'evaporate)
 			   'evaporate)
       (org-overlay-put ov 'type 'org-marked-entry-overlay))
       (org-overlay-put ov 'type 'org-marked-entry-overlay))

+ 0 - 1
lisp/org.el

@@ -8094,7 +8094,6 @@ there is one, offer it as link number zero."
 	(save-window-excursion
 	(save-window-excursion
 	  (delete-other-windows)
 	  (delete-other-windows)
 	  (with-output-to-temp-buffer "*Select Link*"
 	  (with-output-to-temp-buffer "*Select Link*"
-	    (princ "Select link\n\n")
 	    (mapc (lambda (l)
 	    (mapc (lambda (l)
 		    (if (not (string-match org-bracket-link-regexp l))
 		    (if (not (string-match org-bracket-link-regexp l))
 			(princ (format "[%c]  %s\n" (incf cnt)
 			(princ (format "[%c]  %s\n" (incf cnt)