forked from mirrors/org-mode
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.
This commit is contained in:
parent
313146374e
commit
c338f9c630
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue