tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix typos on org-colview-xemacs.el

This commit is contained in:
Bernt Hansen 2008-12-16 09:51:34 -05:00
parent 5ee1bb9a4a
commit 455df64fba
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-colview-xemacs.el
View File

@ -27,7 +27,7 @@
;; ;;
;;; Commentary: ;;; Commentary:
;; This file contains the face definitons for Org. ;; This file contains the face definitions for Org.
;;; Code: ;;; Code:
@ -37,7 +37,7 @@
(declare-function org-agenda-redo "org-agenda" ()) (declare-function org-agenda-redo "org-agenda" ())
;;; Definie additional faces for column view ;;; Define additional faces for column view
(when (featurep 'xemacs) (when (featurep 'xemacs)
@ -159,7 +159,7 @@
)) ))
(defun org-get-columns-level-face (n) (defun org-get-columns-level-face (n)
"Get the right face for match N in font-lock matching of healdines." "Get the right face for match N in font-lock matching of headlines."
(setq org-l (- (match-end 2) (match-beginning 1) 1)) (setq org-l (- (match-end 2) (match-beginning 1) 1))
(if org-odd-levels-only (setq org-l (1+ (/ org-l 2)))) (if org-odd-levels-only (setq org-l (1+ (/ org-l 2))))
(setq org-f (nth (% (1- org-l) org-n-level-faces) org-columns-level-faces)) (setq org-f (nth (% (1- org-l) org-n-level-faces) org-columns-level-faces))
@ -414,7 +414,7 @@ This is the compiled version of the format.")
org-columns-ellipses)))) org-columns-ellipses))))
(defvar org-columns-full-header-line-format nil (defvar org-columns-full-header-line-format nil
"Fthe full header line format, will be shifted by horizontal scrolling." ) "The full header line format, will be shifted by horizontal scrolling." )
(defvar org-previous-header-line-format nil (defvar org-previous-header-line-format nil
"The header line format before column view was turned on.") "The header line format before column view was turned on.")
(defvar org-columns-inhibit-recalculation nil (defvar org-columns-inhibit-recalculation nil
@ -519,7 +519,7 @@ This is the compiled version of the format.")
(defvar org-agenda-columns-remove-prefix-from-item) (defvar org-agenda-columns-remove-prefix-from-item)
(defun org-agenda-columns-cleanup-item (item pl cphr fmt) (defun org-agenda-columns-cleanup-item (item pl cphr fmt)
"Cleanup the tiem property for agenda column view. "Cleanup the time property for agenda column view.
See also the variable `org-agenda-columns-remove-prefix-from-item'." See also the variable `org-agenda-columns-remove-prefix-from-item'."
(let* ((org-complex-heading-regexp cphr) (let* ((org-complex-heading-regexp cphr)
(prefix (substring item 0 pl)) (prefix (substring item 0 pl))
@ -934,7 +934,7 @@ around it."
(org-columns-redo))) (org-columns-redo)))
(defun org-columns-narrow (arg) (defun org-columns-narrow (arg)
"Make the column nrrower by ARG characters." "Make the column narrower by ARG characters."
(interactive "p") (interactive "p")
(org-columns-widen (- arg))) (org-columns-widen (- arg)))