NetNews Usenet Archive 1992 #30/NN_1992_30.iso/spool/gnu/emacs/help/5120

Text File | 1992-12-18 | 10.6 KB | 308 lines

Path: sparky!uunet!olivea!charnel!rat!usc!cs.utexas.edu!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!uchinews!fuchsia!daniel
From: [e-mail] (Daniel Fu)
Newsgroups: gnu.emacs.help
Subject: linenumbers.el problem
Message-ID: <daniel.724627361@fuchsia>
Date: 17 Dec 92 21:22:41 GMT
Sender: [e-mail] (News System)
Organization: University of Chicago Computing Organizations
Lines: 297

I've been using linenumbers.el to display line numbers for me.  The
problem is that I lose column information when using the next-line*,
previous-line* functions, i.e., if I'm at the end of a long line, go
to an adjacent blank line, and then back, I'm not where I was before.
Any painless solutions?  Also, why is it that this happens?

The code I'm using is a (slightly?) modified version:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; linenumbers.el
;; Written by: Ajay Shekhawat <[e-mail]>
;; Written sometime in 1989.
;; Released (unleashed? :-) on Wed Sep 23 10:47:46 EDT 1992
;; Copyright (c) 1992, Ajay Shekhawat <[e-mail]>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; General Description.
;; Load this file, and the line number that the cursor is on gets displayed in
;; the status line. It gets updated continuously as you move around (well,
;; almost always. Sometimes it fails, and hitting C-p/C-n fixes that). Please
;; read the History and Disclaimer below, *before* you start using it.
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DISCLAIMER: This file is provided as-is, with no warranties whatsoever,
;; either explicit or implied. Use at your own risk.
;; - - - - - - - - - - - - - -
;; Everyone is granted permission to copy, modify and redistribute
;; this code, but only under the conditions described in the
;; GNU Emacs General Public License.   A copy of this license is
;; supposed to have been given to you along with GNU Emacs so you
;; can know your rights and responsibilities.  It should be in a
;; file named COPYING.  Among other things, the copyright notice
;; and this notice must be preserved on all copies.
;; - - - - - - - - - - - - - -
;;
;; History:  During my early Emacs days, I was sometimes in the need to see
;; the current line number while editing (continuosly). I hacked out this
;; piece of Elisp code (actually , "hack" is too strong a word. There's
;; almost nothing elegant in this code), to do the job.
;; My demands were (and still are) limited, so I'm satisified by what this
;; does.
;; Some friends of mine here have found this to be pretty useful (not that
;; they have a choice ;-) , so upon their urging I'm releasing this to
;; the wide world, with the request that
;;    - if you have gripes about the way it is written, I don't want to hear
;;      about them. I know this code is pretty shoddy.
;;    - if you find a serious bug, _and_ can come up with a fix, I'd like
;;      to hear about it.
;;    - if you improve this code, or write your own with this functionality,
;;      please drop me a line.
;;
;; I won't be modifying this further on my own (well, most probably not :-)),
;; so please don't send me mail asking for "a newer version". There won't be
;; any, atleast from me.  I'm sorry, but...
;;
;; Some known bugs:
;;       It updates the status line of all the buffers, regardless of which
;; buffer you are in.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; LCD Archive Entry:
;; linenumbers.el|Ajay Shekhawat|[e-mail]
;; |Continuous display of current line number in the status line
;; |Wed Sep 23 11:08:54 EDT 1992
;; |1.0|~/emacs/linenumbers.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'linenumbers)

(defvar global-line-numbers t)

(make-variable-buffer-local 'line-number)

(setq-default mode-line-buffer-identification '("Emacs: %1b" "--" line-number "--"))

(setq global-mode-string '(""  display-time-string))

(defun what-line* ()
  "RETURN the current line number (in the buffer) of point."
  (interactive)
  (save-restriction
    (widen)
    (save-excursion
      (beginning-of-line)
      (concat " " (1+ (count-lines 1 (point))) " "))))

(setq line-number (what-line*))

(substitute-key-definition 'open-line 'open-line* (current-global-map))
(substitute-key-definition 'split-line 'split-line* (current-global-map))
(substitute-key-definition 'delete-blank-lines 'delete-blank-lines*
               (current-global-map))
(substitute-key-definition 'newline-and-indent 'newline-and-indent*
               (current-global-map))
(substitute-key-definition 'goto-line 'goto-line* (current-global-map))
(substitute-key-definition 'kill-line 'kill-line* (current-global-map))
(substitute-key-definition 'newline 'newline* (current-global-map))
(substitute-key-definition 'backward-char 'backward-char* (current-global-map))
(substitute-key-definition 'kill-region 'kill-region* (current-global-map))
(substitute-key-definition 'yank 'yank* (current-global-map))
(substitute-key-definition 'backward-page 'backward-page* (current-global-map))
(substitute-key-definition 'previous-line 'previous-line* (current-global-map))
(substitute-key-definition 'backward-word 'backward-word* (current-global-map))
(substitute-key-definition 'beginning-of-buffer 'beginning-of-buffer*
               (current-global-map))
(substitute-key-definition 'scroll-down 'scroll-down* (current-global-map))
(substitute-key-definition 'yank-pop 'yank-pop* (current-global-map))
(substitute-key-definition 'scroll-up 'scroll-up* (current-global-map))
(substitute-key-definition 'next-line 'next-line* (current-global-map))
(substitute-key-definition 'forward-char 'forward-char* (current-global-map))
(substitute-key-definition 'forward-page 'forward-page* (current-global-map))
(substitute-key-definition 'end-of-buffer 'end-of-buffer* (current-global-map))
(substitute-key-definition 'forward-word 'forward-word* (current-global-map))

(defun backward-char* (arg)
  "same as \\[backward-char] , but display line-number also."
  (interactive "p")
  (backward-char arg)
  (setq line-number (what-line*)))

(defun backward-page* (arg)
  "See backward-page for documentation.  "
  (interactive "p")
  (backward-page arg)
  (setq line-number (what-line*)))

(defun previous-line* (arg)
  "See previous-line for documentation. "
  (interactive "p")
  (previous-line arg)
  (setq line-number (what-line*)))

(defun backward-word* (arg)
  "See backward-word for documentation. "
  (interactive "p")
  (backward-word arg)
  (setq line-number (what-line*)))

(defun beginning-of-buffer* (arg)
  "See beginning-of-buffer for documentation. "
  (interactive "P")
  (beginning-of-buffer arg)
  (setq line-number (what-line*)))

(defun scroll-down* (arg)
  "See scroll-down for documentation. "
  (interactive "P")
  (scroll-down arg)
  (setq line-number (what-line*)))

(defun scroll-up* (arg)
  "See scroll-up for documentation. "
  (interactive "P")
  (scroll-up arg)
  (setq line-number (what-line*)))

(defun next-line* (arg)
  "See next-line for documentation. "
  (interactive "p")
  (next-line arg)
  (setq line-number (what-line*)))

(defun forward-char* (arg)
  "See forward-char for documentation. "
  (interactive "p")
  (forward-char arg)
  (setq line-number (what-line*)))

(defun forward-page* (arg)
  "See forward-page for documentation. "
  (interactive "p")
  (forward-page arg)
  (setq line-number (what-line*)))

(defun end-of-buffer* (arg)
  "See end-of-buffer for documentation. "
  (interactive "P")
  (message (concat " " arg))
  (end-of-buffer arg)
  (setq line-number (what-line*)))

(defun forward-word* (arg)
  "See forward-word for documentation. "
  (interactive "p")
  (forward-word arg)
  (setq line-number (what-line*)))

;(defun newline+ (arg)
;  " Redefine \\[backward-delete-char-untabify] , and then redefine itself"
;  (interactive "p")
;(cond
;  (global-line-numbers
;    (or
;      (global-set-key "\C-?" 'backward-delete-char-untabify*)
;      (global-set-key "\C-m" 'newline*)))
;  (t
;    (or
;      (local-set-key "\C-?" 'backward-delete-char-untabify*)
;      (local-set-key "\C-m" 'newline*))))
;  (global-set-key "\C-m" 'newline*)
;  (newline* arg))


(defun newline* (arg)
  "See newline for documentation. "
  (interactive "p")
  (newline arg)
  (setq line-number (what-line*)))



(defun open-line* (arg)
  " See open-line for documentation "
  (interactive "*p")
  (open-line arg)
  (setq line-number (what-line*)))

(defun split-line* (arg)
  "See split-line for documentation. "
  (interactive "*")
  (split-line arg)
  (setq line-number (what-line*)))

(defun delete-blank-lines* (arg)
  "See delete-blank-lines for documentation. "
  (interactive "*" )
  (delete-blank-lines arg)
  (setq line-number (what-line*)))

(defun newline-and-indent* ()
  "See newline-and-indent for documentation. "
  (interactive "*" )
  (newline-and-indent)
  (setq line-number (what-line*)))

(defun goto-line* (arg)
  "See goto-line for documentation. "
  (interactive "Ngoto? ")
  (goto-line arg)
  (setq line-number (what-line*)))

(defun kill-line* (arg)
  "See kill-line for documentation. "
  (interactive "*P")
  (setq this-command 'kill-line)
  (kill-line arg)
  (setq line-number (what-line*)))

(defun kill-region* (beg end)
  "See kill-region for documentation. "
  (interactive "*r")
  (setq this-command 'kill-region)
  (kill-region beg end)
  (setq line-number (what-line*)))

(defun yank-pop* (arg)
  "See yank-pop for documentation. "
  (interactive "*p")
  (setq this-command 'yank-pop)
  (yank-pop arg)
  (setq line-number (what-line*)))

(defun yank* (arg)
  "See yank for documentation. "
  (interactive "*P")
  (setq this-command 'yank)
  (yank arg)
  (setq line-number (what-line*)))

;;(defun backward-delete-char-untabify* (arg &optional killp)
;;  "See backward-delete-char-untabify for documentation. "
;;  (interactive "*p\nP")
;;  (backward-delete-char-untabify arg killp)
;;  (setq line-number (what-line*)))

(defun backward-delete-char-untabify (arg &optional killp)
  "Delete characters backward, changing tabs into spaces, and display line-number
Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil.
Interactively, ARG is the prefix arg (default 1)
and KILLP is t if prefix arg is was specified."
  (interactive "*p\nP")
  (let ((count arg))
    (save-excursion
      (while (and (> count 0) (not (bobp)))
    (if (= (preceding-char) ?\t)
        (let ((col (current-column)))
          (forward-char -1)
          (setq col (- col (current-column)))
          (insert-char ?\ col)
          (delete-char 1)))
    (forward-char -1)
    (setq count (1- count)))))
  (delete-backward-char arg killp)
  (setq line-number (what-line*)))
____________________________________
Daniel Fu
              [e-mail]