pin the right edge of the text to the right edge of the monitor

pin the right edge of the text to the right edge of the monitor

[Dan Jacobson]

Gentlemen, do
$ perl -wle "for (1..50){print 'z' x $((${COLUMNS-99}+10))}" > wide_file
#I.e. make a file with lines longer than your monitor can handle without wrapping.
$ emacs -q --no-site-file wide_file
M-x toggle-truncate-lines
C-e or C-x <
Note how there is tons of space wasted as there is no way to pin the
right edge of the text to the right edge of the monitor.
A C-a gets the left edge of the text nicely fixed to the left edge of
the monitor, but no consideration is given to us right-wingers.

Re: pin the right edge of the text to the right edge of the monitor

[Barry Margolin]

In article <mailman.1622.1075480427.928.bug-gnu-emacs@gnu.org>,
 Dan Jacobson <jidanni@jidanni.org> wrote:

> A C-a gets the left edge of the text nicely fixed to the left edge of
> the monitor, but no consideration is given to us right-wingers.

Since you know the column that you want to be at the right edge, give a 
numeric argument to C-x <.

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***

Re: pin the right edge of the text to the right edge of the monitor

[Roland Winkler]

Barry Margolin <barmar@alum.mit.edu> writes:

> In article <mailman.1622.1075480427.928.bug-gnu-emacs@gnu.org>,
>  Dan Jacobson <jidanni@jidanni.org> wrote:
> 
> > A C-a gets the left edge of the text nicely fixed to the left edge of
> > the monitor, but no consideration is given to us right-wingers.
> 
> Since you know the column that you want to be at the right edge, give a 
> numeric argument to C-x <.

I use the following piece of code in order to let emacs calculate
the numeric argument of scroll-left and scroll-right


(setq auto-show-shift-amount 4)
(defun my-recenter ()
  "Center point in window horizontally and vertically."
  (interactive)
  (recenter)
  (if truncate-lines
      (let ((eol (save-excursion (end-of-line) (current-column)))
            (col (current-column))
            (ww  (window-width)))
        (when (> eol ww)
          (scroll-right eol)
          (cond ((< (- eol col (/ ww 2)) 0)
                 (scroll-left (- (+ eol auto-show-shift-amount 1) ww)))
                ((> col (/ ww 2))
                 (scroll-left (- col (/ ww 2) -1)))
                )))))

(global-set-key "\C-l" 'my-recenter)