Mercurial > hg > xemacs-beta

comparison lisp/list-mode.el @ 353:3b3709405255 r21-1-6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-6
author cvs
date Mon, 13 Aug 2007 10:55:33 +0200
parents 8429d81ab209
children cc15677e0335
comparison
equal deleted inserted replaced
352:e7288c5461ae 353:3b3709405255
75 (make-local-hook 'pre-command-hook) 75 (make-local-hook 'pre-command-hook)
76 (add-hook 'pre-command-hook 'list-mode-extent-pre-hook nil t) 76 (add-hook 'pre-command-hook 'list-mode-extent-pre-hook nil t)
77 (make-local-variable 'next-line-add-newlines) 77 (make-local-variable 'next-line-add-newlines)
78 (setq next-line-add-newlines nil) 78 (setq next-line-add-newlines nil)
79 (setq list-mode-extent nil) 79 (setq list-mode-extent nil)
80 (set-specifier text-cursor-visible-p nil (current-buffer)) 80 ;; It is visually disconcerting to have the text cursor disappear within list
81 ;; buffers, especially when moving from window to window, so leave it
82 ;; visible. -- Bob Weiner, 06/20/1999
83 ; (set-specifier text-cursor-visible-p nil (current-buffer))
81 (setq buffer-read-only t) 84 (setq buffer-read-only t)
82 (goto-char (point-min)) 85 (goto-char (point-min))
83 (run-hooks 'list-mode-hook)) 86 (run-hooks 'list-mode-hook))
84 87
85 ;; List mode is suitable only for specially formatted data. 88 ;; List mode is suitable only for specially formatted data.