Mercurial > emacs
comparison lisp/simple.el @ 13960:5f1ba0200a33
(shell-command): Fix message spelling.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 04 Jan 1996 23:20:13 +0000 |
parents | 64679d67fde9 |
children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
13959:b07ed8bef291 | 13960:5f1ba0200a33 |
---|---|
475 (let ((command (read-from-minibuffer prompt | 475 (let ((command (read-from-minibuffer prompt |
476 (prin1-to-string command) | 476 (prin1-to-string command) |
477 read-expression-map t | 477 read-expression-map t |
478 '(command-history . 1)))) | 478 '(command-history . 1)))) |
479 ;; If command was added to command-history as a string, | 479 ;; If command was added to command-history as a string, |
480 ;; get rid of that. We want only evallable expressions there. | 480 ;; get rid of that. We want only evaluable expressions there. |
481 (if (stringp (car command-history)) | 481 (if (stringp (car command-history)) |
482 (setq command-history (cdr command-history))) | 482 (setq command-history (cdr command-history))) |
483 | 483 |
484 ;; If command to be redone does not match front of history, | 484 ;; If command to be redone does not match front of history, |
485 ;; add it to the history. | 485 ;; add it to the history. |
508 (read-from-minibuffer | 508 (read-from-minibuffer |
509 "Redo: " (prin1-to-string elt) read-expression-map t | 509 "Redo: " (prin1-to-string elt) read-expression-map t |
510 (cons 'command-history arg)))) | 510 (cons 'command-history arg)))) |
511 | 511 |
512 ;; If command was added to command-history as a string, | 512 ;; If command was added to command-history as a string, |
513 ;; get rid of that. We want only evallable expressions there. | 513 ;; get rid of that. We want only evaluable expressions there. |
514 (if (stringp (car command-history)) | 514 (if (stringp (car command-history)) |
515 (setq command-history (cdr command-history))) | 515 (setq command-history (cdr command-history))) |
516 | 516 |
517 ;; If command to be redone does not match front of history, | 517 ;; If command to be redone does not match front of history, |
518 ;; add it to the history. | 518 ;; add it to the history. |
792 ;; Preserve the match data in case called from a program. | 792 ;; Preserve the match data in case called from a program. |
793 (save-match-data | 793 (save-match-data |
794 (if (string-match "[ \t]*&[ \t]*$" command) | 794 (if (string-match "[ \t]*&[ \t]*$" command) |
795 ;; Command ending with ampersand means asynchronous. | 795 ;; Command ending with ampersand means asynchronous. |
796 (let ((buffer (get-buffer-create | 796 (let ((buffer (get-buffer-create |
797 (or output-buffer "*Asynch Shell Command*"))) | 797 (or output-buffer "*Async Shell Command*"))) |
798 (directory default-directory) | 798 (directory default-directory) |
799 proc) | 799 proc) |
800 ;; Remove the ampersand. | 800 ;; Remove the ampersand. |
801 (setq command (substring command 0 (match-beginning 0))) | 801 (setq command (substring command 0 (match-beginning 0))) |
802 ;; If will kill a process, query first. | 802 ;; If will kill a process, query first. |
2829 (interactive "p") | 2829 (interactive "p") |
2830 (next-completion (- n))) | 2830 (next-completion (- n))) |
2831 | 2831 |
2832 (defun next-completion (n) | 2832 (defun next-completion (n) |
2833 "Move to the next item in the completion list. | 2833 "Move to the next item in the completion list. |
2834 WIth prefix argument N, move N items (negative N means move backward)." | 2834 With prefix argument N, move N items (negative N means move backward)." |
2835 (interactive "p") | 2835 (interactive "p") |
2836 (while (and (> n 0) (not (eobp))) | 2836 (while (and (> n 0) (not (eobp))) |
2837 (let ((prop (get-text-property (point) 'mouse-face)) | 2837 (let ((prop (get-text-property (point) 'mouse-face)) |
2838 (end (point-max))) | 2838 (end (point-max))) |
2839 ;; If in a completion, move to the end of it. | 2839 ;; If in a completion, move to the end of it. |