3937 |
|
|
3938 |
|
|
3939 |
(defvar ebrowse-electric-position-mode-hook nil |
(defvar ebrowse-electric-position-mode-hook nil |
3940 |
"If non-nil, its value is called by ebrowse-electric-position-mode.") |
"If non-nil, its value is called by `ebrowse-electric-position-mode'.") |
3941 |
|
|
3942 |
|
|
3943 |
(unless ebrowse-electric-position-mode-map |
(unless ebrowse-electric-position-mode-map |
4185 |
|
|
4186 |
(defun ebrowse-print-statistics-line (title value) |
(defun ebrowse-print-statistics-line (title value) |
4187 |
"Print a line in the statistics buffer. |
"Print a line in the statistics buffer. |
4188 |
TITLE is the title of the line, VALUE is number to be printed |
TITLE is the title of the line, VALUE is a number to be printed |
4189 |
after that." |
after that." |
4190 |
(insert title) |
(insert title) |
4191 |
(indent-to 40) |
(indent-to 40) |
4319 |
|
|
4320 |
|
|
4321 |
(defun ebrowse-install-1-to-9-keys () |
(defun ebrowse-install-1-to-9-keys () |
4322 |
"Define keys 1..9 to select the 1st to 0nth entry in the list." |
"Define keys 1..9 to select the 1st to 9nth entry in the list." |
4323 |
(dotimes (i 9) |
(dotimes (i 9) |
4324 |
(define-key (current-local-map) (char-to-string (+ i ?1)) |
(define-key (current-local-map) (char-to-string (+ i ?1)) |
4325 |
'ebrowse-select-1st-to-9nth))) |
'ebrowse-select-1st-to-9nth))) |