216 |
|
|
217 |
(defconst foldout-fold-list nil |
(defconst foldout-fold-list nil |
218 |
"List of start and end markers for the folds currently entered. |
"List of start and end markers for the folds currently entered. |
219 |
An end marker of NIL means the fold ends after (point-max).") |
An end marker of nil means the fold ends after (point-max).") |
220 |
(make-variable-buffer-local 'foldout-fold-list) |
(make-variable-buffer-local 'foldout-fold-list) |
221 |
|
|
222 |
(defconst foldout-modeline-string nil |
(defconst foldout-modeline-string nil |
269 |
;; I need a marker that will follow the end of the region even when |
;; I need a marker that will follow the end of the region even when |
270 |
;; text is inserted right at the end. Text gets inserted *after* |
;; text is inserted right at the end. Text gets inserted *after* |
271 |
;; markers, so I need it at end+1. Unfortunately I can't set a |
;; markers, so I need it at end+1. Unfortunately I can't set a |
272 |
;; marker at (point-max)+1, so I use NIL to mean the region ends at |
;; marker at (point-max)+1, so I use nil to mean the region ends at |
273 |
;; (point-max). |
;; (point-max). |
274 |
(end-marker (if (eobp) nil (set-marker (make-marker) (1+ end)))) |
(end-marker (if (eobp) nil (set-marker (make-marker) (1+ end)))) |
275 |
) |
) |
517 |
;;; Keymaps: |
;;; Keymaps: |
518 |
|
|
519 |
(defvar foldout-inhibit-key-bindings nil |
(defvar foldout-inhibit-key-bindings nil |
520 |
"Set non-NIL before loading foldout to inhibit key bindings.") |
"Set non-nil before loading foldout to inhibit key bindings.") |
521 |
|
|
522 |
(defvar foldout-mouse-modifiers '(meta control) |
(defvar foldout-mouse-modifiers '(meta control) |
523 |
"List of modifier keys to apply to foldout's mouse events. |
"List of modifier keys to apply to foldout's mouse events. |