• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.10.1/emacs-93/emacs/lisp/emulation/

Lines Matching +defs:store +defs:cut +defs:buffer +defs:internal

55 ;;     .  Rectangular cut and paste
96 ;; files you are editing; other "internal" buffers are used for emacs' own
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")
120 ;; Get (unfortunately, "get" is an internal emacs function, so we are
256 ;; Gold-^ Add a string at BOL in region or buffer
257 ;; Gold-$ Add a string at EOL in region or buffer
337 (define-key map "3~" 'tpu-cut) ; Remove
375 (define-key map "3~" 'tpu-store-text) ; Remove
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
575 (define-key map "v" 'tpu-cut) ; KP6
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
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))
1073 ;; next-line-internal. If we're running under an older emacs,
1074 ;; make next-line-internal equivalent to line-move.
1076 (if (not (fboundp 'next-line-internal)) (fset 'next-line-internal 'line-move))
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)))))
1371 (tpu-search-internal ""))
1379 (tpu-search-internal ""))
1387 (tpu-search-internal ""))
1393 (tpu-search-internal tpu-search-last-string))
1395 ;; tpu-set-search defines the search functions used by the TPU-edt internal
1426 (defun tpu-search-internal (pat &optional quiet)
1463 (defalias 'tpu-search-internal-core (symbol-function 'tpu-search-internal))
1543 (message "Rectangular cut and paste %sabled."
1568 (defun tpu-cut-text nil
1579 (buffer-substring (tpu-mark) (point)))
1584 (setq tpu-last-deleted-region (buffer-substring beg end))
1590 (defun tpu-store-text nil
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)))
1612 (defun tpu-cut (arg)
1613 "Copy selected region to the cut buffer. In the absence of an
1616 (if arg (tpu-store-text) (tpu-cut-text)))
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
1789 (if (= num 1) (tpu-search-internal tpu-search-last-string)
1790 (tpu-search-internal-core tpu-search-last-string)))
1807 (tpu-search-internal from t)
1814 (tpu-match-beginning) (tpu-match-end) (current-buffer))
1823 (tpu-search-internal from t))
1826 (tpu-search-internal from t))
1834 (tpu-search-internal-core from t)
1840 (tpu-search-internal-core from t)))
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."
2029 (next-line-internal num)
2036 (next-line-internal (- num))
2144 ;;; Scrolling and movement within the buffer
2159 (next-line-internal (- lines))
2169 (next-line-internal lines)
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."
2338 (dolist (cur (where-is-internal 'tpu-previous-line))
2347 (dolist (cur (where-is-internal 'tpu-next-line))
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*")))