Browse Source

Merge branch 'master' of orgmode.org:org-mode

Eric Schulte 14 years ago
parent
commit
9a863dda84
4 changed files with 20 additions and 16 deletions
  1. 6 5
      doc/org.texi
  2. 7 7
      lisp/org-agenda.el
  3. 6 3
      lisp/org-html.el
  4. 1 1
      lisp/org-mobile.el

+ 6 - 5
doc/org.texi

@@ -1895,10 +1895,11 @@ calculator).
 @section The built-in table editor
 @section The built-in table editor
 @cindex table editor, built-in
 @cindex table editor, built-in
 
 
-Org makes it easy to format tables in plain ASCII.  Any line with
-@samp{|} as the first non-whitespace character is considered part of a
-table.  @samp{|} is also the column separator.  A table might look like
-this:
+Org makes it easy to format tables in plain ASCII.  Any line with @samp{|} as
+the first non-whitespace character is considered part of a table.  @samp{|}
+is also the column separator@footnote{To insert a vertical bar into a table
+field, use @code{\vert} or, inside a word @code{abc\vert@{@}def}.}.  A table
+might look like this:
 
 
 @example
 @example
 | Name  | Phone | Age |
 | Name  | Phone | Age |
@@ -8529,7 +8530,7 @@ This causes the following issues:
 Org needs to make a decision which @code{COLUMNS} format to use.  Since the
 Org needs to make a decision which @code{COLUMNS} format to use.  Since the
 entries in the agenda are collected from different files, and different files
 entries in the agenda are collected from different files, and different files
 may have different @code{COLUMNS} formats, this is a non-trivial problem.
 may have different @code{COLUMNS} formats, this is a non-trivial problem.
-Org first checks if the variable @code{org-overriding-columns-format} is
+Org first checks if the variable @code{org-agenda-overriding-columns-format} is
 currently set, and if so, takes the format from there.  Otherwise it takes
 currently set, and if so, takes the format from there.  Otherwise it takes
 the format associated with the first item in the agenda, or, if that item
 the format associated with the first item in the agenda, or, if that item
 does not have a specific format (defined in a property, or in its file), it
 does not have a specific format (defined in a property, or in its file), it

+ 7 - 7
lisp/org-agenda.el

@@ -4710,7 +4710,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines',
 	    (setq hdmarker (org-agenda-new-marker)
 	    (setq hdmarker (org-agenda-new-marker)
 		  tags (org-get-tags-at))
 		  tags (org-get-tags-at))
 	    (looking-at "\\*+[ \t]+\\([^\r\n]+\\)")
 	    (looking-at "\\*+[ \t]+\\([^\r\n]+\\)")
-	    (setq head (match-string 1))
+	    (setq head (or (match-string 1) ""))
 	    (setq txt (org-format-agenda-item
 	    (setq txt (org-format-agenda-item
 		       (if inactivep org-agenda-inactive-leader nil)
 		       (if inactivep org-agenda-inactive-leader nil)
 		       head category tags timestr
 		       head category tags timestr
@@ -5905,7 +5905,7 @@ to switch to narrowing."
 	 (effort-prompt "")
 	 (effort-prompt "")
 	 (inhibit-read-only t)
 	 (inhibit-read-only t)
 	 (current org-agenda-filter)
 	 (current org-agenda-filter)
-	 maybe-reftresh a n tag)
+	 maybe-refresh a n tag)
     (unless char
     (unless char
       (message
       (message
        "%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: "
        "%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: "
@@ -5952,12 +5952,12 @@ to switch to narrowing."
 		(push modifier org-agenda-filter))))
 		(push modifier org-agenda-filter))))
 	(if (not (null org-agenda-filter))
 	(if (not (null org-agenda-filter))
 	    (org-agenda-filter-apply org-agenda-filter)))
 	    (org-agenda-filter-apply org-agenda-filter)))
-      (setq maybe-reftresh t))
+      (setq maybe-refresh t))
      ((equal char ?/)
      ((equal char ?/)
       (org-agenda-filter-by-tag-show-all)
       (org-agenda-filter-by-tag-show-all)
       (when (get 'org-agenda-filter :preset-filter)
       (when (get 'org-agenda-filter :preset-filter)
 	(org-agenda-filter-apply org-agenda-filter))
 	(org-agenda-filter-apply org-agenda-filter))
-      (setq maybe-reftresh t))
+      (setq maybe-refresh t))
      ((or (equal char ?\ )
      ((or (equal char ?\ )
 	  (setq a (rassoc char alist))
 	  (setq a (rassoc char alist))
 	  (and (>= char ?0) (<= char ?9)
 	  (and (>= char ?0) (<= char ?9)
@@ -5974,9 +5974,9 @@ to switch to narrowing."
 	    (cons (concat (if strip "-" "+") tag)
 	    (cons (concat (if strip "-" "+") tag)
 		  (if narrow current nil)))
 		  (if narrow current nil)))
       (org-agenda-filter-apply org-agenda-filter)
       (org-agenda-filter-apply org-agenda-filter)
-      (setq maybe-reftresh t))
+      (setq maybe-refresh t))
      (t (error "Invalid tag selection character %c" char)))
      (t (error "Invalid tag selection character %c" char)))
-    (when (and maybe-reftresh
+    (when (and maybe-refresh
 	       (eq org-agenda-clockreport-mode 'with-filter))
 	       (eq org-agenda-clockreport-mode 'with-filter))
       (org-agenda-redo))))
       (org-agenda-redo))))
 
 
@@ -7942,7 +7942,7 @@ The prefix arg is passed through to the command if possible."
 		  (buffer-live-p (marker-buffer m))
 		  (buffer-live-p (marker-buffer m))
 		  (marker-position m))
 		  (marker-position m))
        (error "Marker %s for bulk command is invalid" m)))
        (error "Marker %s for bulk command is invalid" m)))
-   entries)
+   org-agenda-bulk-marked-entries)
 
 
   ;; Prompt for the bulk command
   ;; Prompt for the bulk command
   (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline [f]unction")
   (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline [f]unction")

+ 6 - 3
lisp/org-html.el

@@ -826,7 +826,8 @@ MAY-INLINE-P allows inlining it as an image."
 		(not type)
 		(not type)
 		(string= type "http")
 		(string= type "http")
 		(string= type "https")
 		(string= type "https")
-		(string= type "file"))
+		(string= type "file")
+		(string= type "coderef"))
 	       (if fragment
 	       (if fragment
 		  (setq thefile (concat thefile "#" fragment))))
 		  (setq thefile (concat thefile "#" fragment))))
 
 
@@ -836,7 +837,8 @@ MAY-INLINE-P allows inlining it as an image."
 	 (setq thefile
 	 (setq thefile
 	    (let
 	    (let
 	       ((str (org-export-html-format-href thefile)))
 	       ((str (org-export-html-format-href thefile)))
-	      (if (and type (not (string= "file" type)))
+	      (if (and type (not (or (string= "file" type)
+				     (string= "coderef" type))))
 		  (concat type ":" str)
 		  (concat type ":" str)
 		  str)))
 		  str)))
 
 
@@ -886,7 +888,8 @@ OPT-PLIST is the export options list."
 	  (if (string-match "^file:" desc)
 	  (if (string-match "^file:" desc)
 	      (setq desc (substring desc (match-end 0)))))
 	      (setq desc (substring desc (match-end 0)))))
 	(setq desc (org-add-props
 	(setq desc (org-add-props
-		       (concat "<img src=\"" desc "\"/>")
+		       (concat "<img src=\"" desc "\" alt=\"" 
+			       (file-name-nondirectory desc) "\"/>")
 		       '(org-protected t))))
 		       '(org-protected t))))
       (cond
       (cond
        ((equal type "internal")
        ((equal type "internal")

+ 1 - 1
lisp/org-mobile.el

@@ -305,9 +305,9 @@ create all custom agenda views, for upload to the mobile phone."
 	  (org-agenda-redo-command org-agenda-redo-command))
 	  (org-agenda-redo-command org-agenda-redo-command))
       (save-excursion
       (save-excursion
 	(save-window-excursion
 	(save-window-excursion
+	  (run-hooks 'org-mobile-pre-push-hook)
 	  (org-mobile-check-setup)
 	  (org-mobile-check-setup)
 	  (org-mobile-prepare-file-lists)
 	  (org-mobile-prepare-file-lists)
-	  (run-hooks 'org-mobile-pre-push-hook)
 	  (message "Creating agendas...")
 	  (message "Creating agendas...")
 	  (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda))
 	  (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda))
 	  (message "Creating agendas...done")
 	  (message "Creating agendas...done")