Lines Matching +defs:ispell +defs:buffer
100 ;; Gold-B moves to next buffer, including internal buffers
101 ;; Gold-N moves to next buffer containing a file
102 ;; Gold-M brings up a buffer menu (like TPU "show buffers")
256 ;; Gold-^ Add a string at BOL in region or buffer
257 ;; Gold-$ Add a string at EOL in region or buffer
294 (defcustom tpu-have-ispell t
295 "*If non-nil (default), TPU-edt uses ispell for spell checking."
493 (define-key map "B" 'tpu-next-buffer) ; B
501 (define-key map "K" 'tpu-kill-buffer) ; K
503 (define-key map "M" 'buffer-menu) ; M
504 (define-key map "N" 'tpu-next-file-buffer) ; N
506 (define-key map "P" 'lpr-buffer) ; P
513 (define-key map "W" 'save-buffer) ; W
524 (define-key map "b" 'tpu-next-buffer) ; b
532 (define-key map "k" 'tpu-kill-buffer) ; k
534 (define-key map "m" 'buffer-menu) ; m
535 (define-key map "n" 'tpu-next-file-buffer) ; n
544 (define-key map "w" 'save-buffer) ; w
656 (make-variable-buffer-local 'tpu-newline-and-indent-p)
660 (make-variable-buffer-local 'tpu-newline-and-indent-string)
664 (make-variable-buffer-local 'tpu-saved-delete-func)
666 (defvar tpu-buffer-local-map nil
667 "TPU-edt buffer local key map.")
668 (make-variable-buffer-local 'tpu-buffer-local-map)
682 (make-variable-buffer-local 'tpu-mark-flag)
696 "Make sure mode-line in the current buffer reflects all changes."
742 ;; make sure 1- marker is in this buffer
748 (equal (marker-buffer tpu-match-beginning-mark) (current-buffer))
765 (marker-buffer tpu-match-end-mark)
766 (point) (current-buffer))))
822 (cond ((not (keymapp tpu-buffer-local-map))
823 (setq tpu-buffer-local-map (if (current-local-map)
826 (use-local-map tpu-buffer-local-map)))
844 (put tpu-breadcrumb-plist num (list (current-buffer) (point)))
851 (switch-to-buffer (car (get tpu-breadcrumb-plist num)))
929 "Checks the spelling of the region, or of the entire buffer if no
932 (cond (tpu-have-ispell
933 (if (tpu-mark) (ispell-region (tpu-mark) (point)) (ispell-buffer)))
935 (if (tpu-mark) (spell-region (tpu-mark) (point)) (spell-buffer))))
981 and the total number of lines in the buffer."
992 "Exit the way TPU does, save current buffer and ask about others."
996 (progn (save-buffer) (save-buffers-kill-emacs))))
1001 (let ((list (buffer-list))
1004 (let ((buffer (car list)))
1005 (if (and (buffer-file-name buffer) (buffer-modified-p buffer))
1132 B Next Buffer - display the next buffer (all buffers)
1134 E Exit - save current buffer and ask about others
1135 G Get - load a file into a new edit buffer
1137 I Include - include a file in this buffer
1138 K Kill Buffer - abandon edits and delete buffer
1140 N Next File Buffer - display next buffer containing a file
1149 W Write - save current buffer
1169 will see a buffer named `*Finder*' listing a number of topics. Look for
1188 ;; Create and fill help buffer if necessary
1189 (if (not (get-buffer "*TPU-edt Help*"))
1190 (progn (generate-new-buffer "*TPU-edt Help*")
1191 (switch-to-buffer "*TPU-edt Help*")
1194 (setq buffer-read-only t)))
1196 ;; Display the help buffer
1197 (switch-to-buffer "*TPU-edt Help*")
1249 ;; message in the mini-buffer for 3 seconds
1290 (defun tpu-kill-buffer nil
1291 "Kills the current buffer. If tpu-kill-buffers-silently is non-nil,
1294 (if tpu-kill-buffers-silently (set-buffer-modified-p nil))
1295 (kill-buffer (current-buffer)))
1308 (defun tpu-next-buffer nil
1309 "Go to next buffer in ring."
1311 (switch-to-buffer (car (reverse (buffer-list)))))
1313 (defun tpu-next-file-buffer nil
1314 "Go to next buffer in ring that is visiting a file or directory."
1316 (let ((list (tpu-make-file-buffer-list (buffer-list))))
1317 (setq list (delq (current-buffer) list))
1319 (switch-to-buffer (car (reverse list)))))
1321 (defun tpu-make-file-buffer-list (buffer-list)
1324 (if (or (= (aref (buffer-name b) 0) ? )
1325 (= (aref (buffer-name b) 0) ?*)) nil b))
1326 buffer-list)))
1361 (tpu-match-beginning) (tpu-match-end) (current-buffer))
1364 (move-overlay tpu-search-overlay 1 1 (current-buffer)))))
1579 (buffer-substring (tpu-mark) (point)))
1584 (setq tpu-last-deleted-region (buffer-substring beg end))
1591 "Copy the selected region to the cut buffer without deleting it.
1603 (buffer-substring (tpu-mark) (point)))
1607 (buffer-substring (tpu-match-beginning) (tpu-match-end)))
1613 "Copy selected region to the cut buffer. In the absence of an
1619 "Append selected region to the tpu-cut buffer. In the absence of an
1626 (buffer-substring beg end)))
1633 (buffer-substring beg end)))
1649 (buffer-substring beg (point)))
1661 (buffer-substring beg (point)))
1672 (buffer-substring (point) beg))
1682 (buffer-substring beg (point)))
1692 (buffer-substring (point) beg))
1762 "Replace the selected region with the contents of the cut buffer."
1766 (setq tpu-last-replaced-text (buffer-substring beg end))
1772 (setq tpu-last-replaced-text (buffer-substring beg end))
1780 "Replace the selected region with the contents of the cut buffer, and
1814 (tpu-match-beginning) (tpu-match-end) (current-buffer))
1854 (move-overlay tpu-replace-overlay 1 1 (current-buffer))
1873 or each line in the entire buffer if no region is selected."
1891 or each line of the entire buffer if no region is selected."
1910 "Removes trailing whitespace from every line in the buffer."
2144 ;;; Scrolling and movement within the buffer
2185 "Move cursor to the beginning of buffer, but don't set the mark."
2190 "Move cursor to the end of buffer, but don't set the mark."
2196 "Move point to ARG percentage of the buffer."
2385 (switch-to-buffer "*scratch*")
2386 (erase-buffer)
2417 (if (not (get-buffer "*TPU-Notice*")) (generate-new-buffer "*TPU-Notice*"))
2418 (set-buffer "*TPU-Notice*")
2419 (erase-buffer)
2432 (switch-to-buffer-other-window "*TPU-Notice*")
2433 (shrink-window-if-larger-than-buffer)
2440 (kill-buffer "*TPU-Notice*")))