Bug: View not returning to column 0 on fill while in truncate mode [7.9.3f (release_7.9.3f-17-g7524ef @ c:/emacs/lisp/org/)]

[Tom Burbage <tiburbage@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 5302 bytes --]

I agree with the default "wrap" behavior of org-mode to be truncate 
rather than wrap, and want to leave it at that default, but wish that 
when typing text beyond the fill column triggering a fill, that the view 
would return to showing column 0 of the buffer. The way it works now is 
as if it did a LF but not a CR, so the visibility of the left columns 
which were forced to be truncated as the word which will trigger the 
fill remain truncated from view after the fill. This is probably more 
easily apparent where the frame width is only slightly larger than the 
fill columns value. If I toggle-truncate-lines, I get behavior more like 
what I'm expecting, but again in general prefer truncate to wrap for 
org-mode buffers, so was hoping something could be done to force the view to
shift back to column 0 after the fill.

Attached are before and after screen capture images in case the above is 
not clear. Note just updated to 24.3, but it was the same in 24.2, and 
on Win and Mac/nextstep standalone Emacs.

Emacs  : GNU Emacs 24.3.1 (i386-mingw-nt6.0.6002)
  of 2013-03-17 on MARVIN
Package: Org-mode version 7.9.3f (release_7.9.3f-17-g7524ef @ 
c:/emacs/lisp/org/)

current state:
==============
(setq
  org-export-blocks '((src org-babel-exp-src-block nil)
                      (export-comment org-export-blocks-format-comment t)
                      (ditaa org-export-blocks-format-ditaa nil)
                      (dot org-export-blocks-format-dot nil))
  org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
  org-icalendar-store-UID t
  org-remember-store-without-prompt nil
  org-reverse-note-order t
  org-agenda-skip-scheduled-if-done t
  org-goto-max-level 2
  org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
  org-tab-first-hook '(org-hide-block-toggle-maybe
                       org-src-native-tab-command-maybe
                       org-babel-hide-result-toggle-maybe
                       org-babel-header-arg-expand)
  org-refile-targets '((org-agenda-files :maxlevel . 1))
  org-imenu-depth 1
  org-modules '(org-info org-mouse)
  org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                   org-cycle-show-empty-lines
                   org-optimize-window-after-visibility-change)
  org-agenda-custom-commands '(("2" agenda "2 week horizon"
                                ((org-agenda-ndays 14)))
                               ("4" agenda "4 week horizon"
                                ((org-agenda-ndays 28)))
                               ("S" alltodo "Unscheduled tasks"
                                ((org-agenda-skip-function
                                  (lambda nil
                                   (org-agenda-skip-entry-if (quote 
scheduled)
                                    (quote deadline))
                                   )
                                  )
                                 (org-agenda-overriding-header
                                  "Unscheduled tasks: ")
                                 )
                                )
                               ("P" alltodo "Unprioritized tasks"
                                ((org-agenda-skip-function
                                  (lambda nil
                                   (org-agenda-skip-entry-if (quote regexp)
                                    "[#[ABCDE]].+")
                                   )
                                  )
                                 (org-agenda-overriding-header
                                  "Unprioritized tasks: ")
                                 )
                                )
                               )
  org-agenda-before-write-hook '(org-agenda-add-entry-text)
  org-speed-command-hook '(org-speed-command-default-hook
                           org-babel-speed-command-hook)
  org-lowest-priority 69
  org-return-follows-link t
  org-babel-pre-tangle-hook '(save-buffer)
  org-occur-hook '(org-first-headline-recenter)
  org-export-interblocks '((src org-babel-exp-non-block-elements))
  org-refile-allow-creating-parent-nodes 'confirm
  org-metaup-hook '(org-babel-load-in-session-maybe)
  org-confirm-elisp-link-function 'yes-or-no-p
  org-export-latex-format-toc-function 'org-export-latex-format-toc-default
  org-fast-tag-selection-single-key 'expert
  org-default-notes-file "~/Documents/org/agenda/notes.org"
  org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
  org-refile-use-outline-path 'file
  org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
  org-completion-use-ido t
  org-remember-templates '(("tasks" 116 "** TODO %?\n  %u" "todo.org"
                            "Unfiled Tasks" nil)
                           ("notes" 110 "* %u %?" "notes.org" "Remember 
Notes"
                            nil)
                           )
  org-default-priority 69
  org-support-shift-select t
  org-use-speed-commands t
  org-agenda-ndays 7
  org-agenda-skip-deadline-if-done t
  org-export-first-hook '(org-beamer-initialize-open-trackers)
  org-mode-hook '((lambda nil (message "org-mode-hook run...")
                   (setq truncate-lines nil) (turn-on-auto-fill))
                  #[nil
                    "\305\x10\306
  >\203\x14

[-- Attachment #2: AfterFill.jpg --]
[-- Type: image/jpeg, Size: 46039 bytes --]

[-- Attachment #3: BeforeFill.jpg --]
[-- Type: image/jpeg, Size: 45385 bytes --]