Re: line length control setting

[Kevin Rodgers]

Adam Hardy wrote:

> Hi All,
> I am using a brute force method of stopping myself from writing long 
> lines of code, using this in my .emacs:
>
> (defun my-dont-insert-after-fill-column (&rest x)
>   (when (> (current-column)
>            fill-column)
>     (delete-char -1)
>     (beep)))
>
> (add-hook 'after-change-functions 'my-dont-insert-after-fill-column)
>
> But I discovered this is also acting on the command buffer, so I cannot 
> add more than my fill column when doing simple file copies or renames or 
> text search & replaces.
>
> Is there a way that I can adapt my function above to stop it applying to 
> the command buffer?

(when (and (not (eq major-mode 'shell-mode))

           (> (current-column) fill-column))
  ...)


--
Kevin Rodgers