summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLele Gaifax <lele@metapensiero.it>2016-06-24 14:26:30 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-06-24 15:58:29 +0200
commitc338f9c630b12900647fe94e9b089232da707d3a (patch)
treece814922c8523031f7b63e79ac5a585a1c8bf11c
parent313146374ecd7eb4866f1b4aa0f09e1ce31f33d7 (diff)
downloadorg-mode-c338f9c630b12900647fe94e9b089232da707d3a.tar.gz
org-colview.el: Fix typo in function name
* lisp/org-colview.el (org-columns-hscroll-title): Rename from `org-columns-hscoll-title'. (org-columns--display-here-title): (org-columns-remove-overlays): Adjust reference to renamed function.
-rw-r--r--lisp/org-colview.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 864b221..d26f16a 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -438,9 +438,9 @@ for the duration of the command.")
(org-add-props " " nil 'display '(space :align-to 0))
(org-add-props (substring title 0 -1) nil 'face 'org-column-title)))
(setq org-columns-previous-hscroll -1)
- (add-hook 'post-command-hook 'org-columns-hscoll-title nil 'local)))
+ (add-hook 'post-command-hook 'org-columns-hscroll-title nil 'local)))
-(defun org-columns-hscoll-title ()
+(defun org-columns-hscroll-title ()
"Set the `header-line-format' so that it scrolls along with the table."
(sit-for .0001) ; need to force a redisplay to update window-hscroll
(when (not (= (window-hscroll) org-columns-previous-hscroll))
@@ -463,7 +463,7 @@ for the duration of the command.")
(when (local-variable-p 'org-previous-header-line-format)
(setq header-line-format org-previous-header-line-format)
(kill-local-variable 'org-previous-header-line-format)
- (remove-hook 'post-command-hook 'org-columns-hscoll-title 'local))
+ (remove-hook 'post-command-hook 'org-columns-hscroll-title 'local))
(move-marker org-columns-begin-marker nil)
(move-marker org-columns-top-level-marker nil)
(org-with-silent-modifications