Re: Changing Color Of Column # In Modeline

[Ilya Zakharevich <nospam-abuse@ilyaz.org>]

[A complimentary Cc of this posting was sent to
rgb
<rbielaws@i1.net>], who wrote in article <1132680280.003922.155730@g47g2000cwa.googlegroups.com>:
> > Is that possible?  Does anyone have a code snippet which does that or
> > something similar?
> 
> http://www.emacswiki.org/cgi-bin/wiki/ColumnMarker

This one looks too restrictive.  Some time ago I wrote this:

(defun match-at-column-79 (end)
  (let (done c res)
    (while (and (not done)
		(< (point) end))
      ;;(message "At point=%s, end=%s, col=%s" (point) end (setq c (current-column)))
      (cond				; need to move forward >=1 char
	  ((< 79 (current-column))
	   (forward-line 1))		; will not move at eobp only
	  ((< 79 (move-to-column 80))	; will move >= 0 char; 0 chars at eolp
	   (setq done t res t)
	   (forward-char -1)
	   (re-search-forward "."))
	  ((eobp)
	   (setq done t))
	  (t
	   (forward-line 1))))
    res))

(add-hook 'font-lock-mode-hook
	  (function
	   (lambda ()
	     (font-lock-add-keywords 
	      nil
	      '((match-at-column-79 0 secondary-selection t))
	      'append))))

Hope this helps,
Ilya