Mercurial > emacs
annotate lisp/linum.el @ 97895:f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
(linum-update-window): Use result of `move-overlay'.
author | Martin Rudalics <rudalics@gmx.at> |
---|---|
date | Sun, 31 Aug 2008 08:46:30 +0000 |
parents | 77e42c247dba |
children | 92d8f6972f8a |
rev | line source |
---|---|
97895
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
1 ;;; linum.el --- display line numbers in the left margin |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
2 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
3 ;; Copyright (C) 2008 Free Software Foundation, Inc. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
4 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
5 ;; Author: Markus Triska <markus.triska@gmx.at> |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
6 ;; Maintainer: FSF |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
7 ;; Keywords: convenience |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
8 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
10 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
14 ;; (at your option) any later version. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
15 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
19 ;; GNU General Public License for more details. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
20 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
23 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
24 ;;; Commentary: |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
25 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
26 ;; Display line numbers for the current buffer. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
27 ;; |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
28 ;; Toggle display of line numbers with M-x linum-mode. To enable |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
29 ;; line numbering in all buffers, use M-x global-linum-mode. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
30 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
31 ;;; Code: |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
32 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
33 (defconst linum-version "0.9x") |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
34 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
35 (defvar linum-overlays nil "Overlays used in this buffer.") |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
36 (defvar linum-available nil "Overlays available for reuse.") |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
37 (defvar linum-before-numbering-hook nil |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
38 "Functions run in each buffer before line numbering starts.") |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
39 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
40 (mapc #'make-variable-buffer-local '(linum-overlays linum-available)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
41 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
42 (defgroup linum nil |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
43 "Show line numbers in the left margin." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
44 :group 'convenience) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
45 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
46 ;;;###autoload |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
47 (defcustom linum-format 'dynamic |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
48 "Format used to display line numbers. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
49 Either a format string like \"%7d\", `dynamic' to adapt the width |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
50 as needed, or a function that is called with a line number as its |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
51 argument and should evaluate to a string to be shown on that line. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
52 See also `linum-before-numbering-hook'." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
53 :group 'linum |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
54 :type 'sexp) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
55 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
56 (defface linum |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
57 '((t :inherit (shadow default))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
58 "Face for displaying line numbers in the display margin." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
59 :group 'linum) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
60 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
61 (defcustom linum-eager t |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
62 "Whether line numbers should be updated after each command. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
63 The conservative setting `nil' might miss some buffer changes, |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
64 and you have to scroll or press \\[recenter-top-bottom] to update the numbers." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
65 :group 'linum |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
66 :type 'boolean) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
67 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
68 (defcustom linum-delay nil |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
69 "Delay updates to give Emacs a chance for other changes." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
70 :group 'linum |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
71 :type 'boolean) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
72 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
73 ;;;###autoload |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
74 (define-minor-mode linum-mode |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
75 "Toggle display of line numbers in the left margin." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
76 :lighter "" ; for desktop.el |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
77 (if linum-mode |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
78 (progn |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
79 (if linum-eager |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
80 (add-hook 'post-command-hook (if linum-delay |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
81 'linum-schedule |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
82 'linum-update-current) nil t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
83 (add-hook 'after-change-functions 'linum-after-change nil t)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
84 (add-hook 'window-scroll-functions 'linum-after-scroll nil t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
85 (add-hook 'window-size-change-functions 'linum-after-size nil t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
86 (add-hook 'change-major-mode-hook 'linum-delete-overlays nil t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
87 (add-hook 'window-configuration-change-hook |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
88 'linum-after-config nil t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
89 (linum-update-current)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
90 (remove-hook 'post-command-hook 'linum-update-current t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
91 (remove-hook 'post-command-hook 'linum-schedule t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
92 (remove-hook 'window-size-change-functions 'linum-after-size t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
93 (remove-hook 'window-scroll-functions 'linum-after-scroll t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
94 (remove-hook 'after-change-functions 'linum-after-change t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
95 (remove-hook 'window-configuration-change-hook 'linum-after-config t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
96 (remove-hook 'change-major-mode-hook 'linum-delete-overlays t) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
97 (linum-delete-overlays))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
98 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
99 ;;;###autoload |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
100 (define-globalized-minor-mode global-linum-mode linum-mode linum-on) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
101 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
102 (defun linum-on () |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
103 (unless (minibufferp) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
104 (linum-mode 1))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
105 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
106 (defun linum-delete-overlays () |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
107 "Delete all overlays displaying line numbers for this buffer." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
108 (mapc #'delete-overlay linum-overlays) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
109 (setq linum-overlays nil) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
110 (dolist (w (get-buffer-window-list (current-buffer) nil t)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
111 (set-window-margins w 0))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
112 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
113 (defun linum-update-current () |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
114 "Update line numbers for the current buffer." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
115 (linum-update (current-buffer))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
116 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
117 (defun linum-update (buffer) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
118 "Update line numbers for all windows displaying BUFFER." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
119 (with-current-buffer buffer |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
120 (when linum-mode |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
121 (setq linum-available linum-overlays) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
122 (setq linum-overlays nil) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
123 (save-excursion |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
124 (mapc #'linum-update-window |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
125 (get-buffer-window-list buffer nil 'visible))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
126 (mapc #'delete-overlay linum-available) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
127 (setq linum-available nil)))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
128 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
129 (defun linum-update-window (win) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
130 "Update line numbers for the portion visible in window WIN." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
131 (goto-char (window-start win)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
132 (let ((line (line-number-at-pos)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
133 (limit (window-end win t)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
134 (fmt (cond ((stringp linum-format) linum-format) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
135 ((eq linum-format 'dynamic) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
136 (let ((w (length (number-to-string |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
137 (count-lines (point-min) (point-max)))))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
138 (concat "%" (number-to-string w) "d"))))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
139 (width 0)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
140 (run-hooks 'linum-before-numbering-hook) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
141 ;; Create an overlay (or reuse an existing one) for each |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
142 ;; line visible in this window, if necessary. |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
143 (while (and (not (eobp)) (<= (point) limit)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
144 (let* ((str (if fmt |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
145 (propertize (format fmt line) 'face 'linum) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
146 (funcall linum-format line))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
147 (visited (catch 'visited |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
148 (dolist (o (overlays-in (point) (point))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
149 (when (string= (overlay-get o 'linum-str) str) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
150 (unless (memq o linum-overlays) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
151 (push o linum-overlays)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
152 (setq linum-available (delete o linum-available)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
153 (throw 'visited t)))))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
154 (setq width (max width (length str))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
155 (unless visited |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
156 (let ((ov (if (null linum-available) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
157 (make-overlay (point) (point)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
158 (move-overlay (pop linum-available) (point) (point))))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
159 (push ov linum-overlays) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
160 (overlay-put ov 'before-string |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
161 (propertize " " 'display `((margin left-margin) ,str))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
162 (overlay-put ov 'linum-str str)))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
163 (forward-line) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
164 (setq line (1+ line))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
165 (set-window-margins win width))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
166 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
167 (defun linum-after-change (beg end len) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
168 ;; update overlays on deletions, and after newlines are inserted |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
169 (when (or (= beg end) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
170 (= end (point-max)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
171 (string-match-p "\n" (buffer-substring-no-properties beg end))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
172 (linum-update-current))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
173 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
174 (defun linum-after-scroll (win start) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
175 (linum-update (window-buffer win))) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
176 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
177 (defun linum-after-size (frame) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
178 (linum-after-config)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
179 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
180 (defun linum-schedule () |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
181 ;; schedule an update; the delay gives Emacs a chance for display changes |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
182 (run-with-idle-timer 0 nil #'linum-update-current)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
183 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
184 (defun linum-after-config () |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
185 (walk-windows (lambda (w) (linum-update (window-buffer w))) nil 'visible)) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
186 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
187 (defun linum-unload-function () |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
188 "Unload the Linum library." |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
189 (global-linum-mode -1) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
190 ;; continue standard unloading |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
191 nil) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
192 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
193 (provide 'linum) |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
194 |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
195 ;; arch-tag: dea45631-ed3c-4867-8b49-1c41c80aec6a |
f0990323fce1
(linum-mode): `window-size-change-functions' can now be buffer-local.
Martin Rudalics <rudalics@gmx.at>
parents:
97739
diff
changeset
|
196 ;;; linum.el ends here |