/usr/share/emacs/site-lisp/emacs-goodies-el/highlight-beyond-fill-column.el is in emacs-goodies-el 35.12.
This file is owned by root:root, with mode 0o655.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | ;;; highlight-beyond-fill-column.el --- fontify beyond the fill-column.
;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;; Copyright (C) 2003 Peter S Galbraith <psg@debian.org>
;; Author: Sandip Chitale (sandip.chitale@blazesoft.com)
;; Keywords: programming decipline convenience
;; Keywords:
;; Time-stamp: Aug 23 2001 8:56 PM Pacific Daylight Time
;; Version: 1.2
;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;
;; This defines a function that can be used by `font-lock-add-keywords' to
;; find the columns that are beyond `fill-column'. It does not currently
;; work in XEmacs because it lacks the funcyom `font-lock-add-keywords'.
;;
;; Installation:
;; Put the following in your .emacs
;;
;; (require 'highlight-beyond-fill-column)
;;
;; Example usage:
;;
;; Enable it on a buffer using `M-x highlight-beyond-fill-column.
;; You may use that command in a hook (e.g. text-mode-hook)
;;
;; Customize the `highlight-beyond-fill-column-face' variable to
;; to setup the face used for highlight-beyond-fill-column
;;
;; Acknowledgement:
;;
;; This is based on initial code provided by Jim Janney (jjanney@xmission.com)
;;; History:
;;
;; V1.2 2003-09-12 by Peter S Galbraith <psg@debian.org>
;; - Made checkdoc clean and fixed indentation and parentheses placement.
;; - Added defgroup; used defface.
;; - Removed `highlight-beyond-fill-column-in-modes' since it didn't work
;; anymore.
;; - Created `highlight-beyond-fill-column' to use on a single buffer or as
;; a hook.
;;; Code:
(defgroup highlight-beyond-fill-column nil
"Fontify beyond the fill-column."
:group 'fill)
(defface highlight-beyond-fill-column-face
'((t (:underline t)))
"Face used to highlight beyond the fill-column."
:group 'highlight-current-line)
(defun highlight-beyond-fill-column-lock (limit)
"Function for font-lock to highlight beyond the `fill-column' until LIMIT."
(let ((original-point (point))) ;; remember the point
;; if already past the fill column start on next line
(if (> (current-column) fill-column)
(forward-line 1))
(while (and (< (point) limit) ; still within limit
;; the line has less than `fill-column' columns
(or (< (move-to-column fill-column) fill-column)
(= (point) (line-end-position)))) ; end of line
;; goto next line
(forward-line 1))
(if (>= (point) limit) ; beyond limit
(progn
(goto-char original-point) ; restore point
nil) ; return nil
(set-match-data (list (point-marker) ; set match data
(progn
(end-of-line)
(point-marker))))
;; return t indicating that the match data was set
t)))
;;;###autoload
(defun highlight-beyond-fill-column ()
"Setup this buffer to highlight beyond the `fill-column'."
(interactive)
(font-lock-add-keywords
nil
'((highlight-beyond-fill-column-lock 0 'highlight-beyond-fill-column-face
prepend))))
(provide 'highlight-beyond-fill-column)
;;; highlight-beyond-fill-column.el ends here
|