/[emacs]/emacs/lisp/foldout.el
ViewVC logotype

Diff of /emacs/lisp/foldout.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pj, Mon Jul 16 12:22:58 2001 UTC revision 1.10 by pj, Thu Dec 20 18:39:56 2001 UTC
# Line 216  Line 216 
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
# Line 269  optional arg EXPOSURE \(interactively wi Line 269  optional arg EXPOSURE \(interactively wi
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             )             )
# Line 517  if the event didn't occur on a heading." Line 517  if the event didn't occur on a heading."
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.

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26