Mercurial > hg > xemacs-beta

comparison lisp/modes/outline.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents ac2d302a0011
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
311 ;; #+XEmacs 311 ;; #+XEmacs
312 (outline-install-menubar) 312 (outline-install-menubar)
313 (run-hooks 'outline-minor-mode-hook)) 313 (run-hooks 'outline-minor-mode-hook))
314 (setq selective-display nil)) 314 (setq selective-display nil))
315 ;; When turning off outline mode, get rid of any ^M's. 315 ;; When turning off outline mode, get rid of any ^M's.
316 (or outline-minor-mode 316 (unless outline-minor-mode
317 (outline-flag-region (point-min) (point-max) ?\n)) 317 (outline-flag-region (point-min) (point-max) ?\n)
318 ;; XEmacs change 318 ;; XEmacs change
319 (set-buffer-modified-p (buffer-modified-p)) 319 (set-buffer-modified-p (buffer-modified-p))
320 ;; #+XEmacs 320 ;; #+XEmacs
321 (outline-install-menubar 'remove) 321 (outline-install-menubar 'remove))
322 ;; XEmacs change 322 ;; XEmacs change
323 (redraw-modeline)) 323 (redraw-modeline))
324 324
325 (defvar outline-level 'outline-level 325 (defvar outline-level 'outline-level
326 "Function of no args to compute a header's nesting level in an outline. 326 "Function of no args to compute a header's nesting level in an outline.