diff options
author | Lele Gaifax <lele@metapensiero.it> | 2016-06-24 14:26:30 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-24 15:58:29 +0200 |
commit | c338f9c630b12900647fe94e9b089232da707d3a (patch) | |
tree | ce814922c8523031f7b63e79ac5a585a1c8bf11c | |
parent | 313146374ecd7eb4866f1b4aa0f09e1ce31f33d7 (diff) | |
download | org-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.el | 6 |
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 |