setnu+.el - extensions to `setnu.el'

[Drew Adams]

;;; setnu+.el --- Extensions to `setnu.el'.
;; 
;; Emacs Lisp Archive Entry
;; Filename: setnu+.el
;; Description: Extensions to `setnu.el'.
;; Author: Drew Adams
;; Maintainer: Drew Adams
;; Copyright (C) 2000, 2001, Drew Adams, all rights reserved.
;; Created: Thu Nov 30 08:51:07 2000
;; Version: $Id: setnu+.el,v 1.2 2001/01/10 00:39:24 dadams Exp $
;; Last-Updated: Tue Jan  9 16:39:11 2001
;;           By: dadams
;;     Update #: 83
;; Keywords: 
;; Compatibility: GNU Emacs 20.x
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;; Commentary: 
;; 
;; Extensions to `setnu.el'.
;;
;;  Fixes setnu mode so that deletions of newlines are taken into
;;  account.
;;
;;  This code is based on `jde.el', by Paul Kinnucan
;;  <address@hidden>, which, in turn, was apparently based on
;;  code by Jonathan Epstein <address@hidden>.
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;; Change log:
;; 
;; RCS $Log: setnu+.el,v $
;; RCS Revision 1.2  2001/01/10 00:39:24  dadams
;; RCS *** empty log message ***
;; RCS
;; RCS Revision 1.1  2001/01/10 00:38:28  dadams
;; RCS Initial revision
;; RCS
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;; Code:

(require 'cl) ;; when, unless
(require 'setnu)


(provide 'setnu+)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(remove-hook 'before-change-functions 'setnu-before-change-function)
(remove-hook 'after-change-functions 'setnu-after-change-function)
(make-local-hook 'before-change-functions)
(make-local-hook 'after-change-functions)

(defvar setnu+-newline-deletion-check t
  "Non-nil => check for newline deletions when numbering lines
via `setnu'.")
(make-variable-buffer-local 'setnu+-newline-deletion-check)

(defun setnu+-after-change (start end length)
  "When in setnu-mode and newlines have been deleted, refreshes
by turning setnu-mode off, then back on."
  (if setnu-mode
      (when (or (and (> length 0) setnu+-newline-deletion-check)
                (string-match "[\n\r]" (buffer-substring-no-properties start 
end)))
        (run-with-timer 0.001 nil (lambda () (setnu-mode) (setnu-mode)))) ; 
Toggle 
    (setq setnu+-newline-deletion-check nil)))

(defun setnu+-before-change (start end) 
  "Determines whether any newlines are about to be deleted."
  (when (and setnu-mode (> end start))
    (setq setnu+-newline-deletion-check 
          (string-match "[\n\r]" (buffer-substring-no-properties start end)))))


;; REPLACES ORIGINAL in `setnu.el':
;; Adds/removes before/after change hooks.
(defun setnu-mode (&optional arg)
  "Toggle setnu-mode on/off.
Positive prefix argument turns setnu-mode on; negative turns it off.
When setnu-mode is on, a line number will appear at the left
margin of each line."
  (interactive "P")
  (let ((oldmode setnu-mode)
        (inhibit-quit t))
    (setq setnu-mode (if arg
                         (natnump (prefix-numeric-value arg))
                       (not setnu-mode)))
    (unless (eq oldmode setnu-mode)
      (cond (setnu-mode
             (add-hook 'before-change-functions 'setnu-before-change-function t 
t)
             (add-hook 'before-change-functions 'setnu+-before-change t t)
             (add-hook 'after-change-functions 'setnu-after-change-function t t)
             (add-hook 'after-change-functions 'setnu+-after-change t t)
             (setnu-mode-on))
            (t
             (remove-hook 'before-change-functions 
'setnu-before-change-function t)
             (remove-hook 'before-change-functions 'setnu+-before-change t)
             (remove-hook 'after-change-functions 'setnu-after-change-function 
t)
             (remove-hook 'after-change-functions 'setnu+-after-change t)
             (setnu-mode-off))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; `setnu+.el' ends here