mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(shell-backward-command): If comint-bol moves forward,

Browse Source 
use real beginning of line instead.
Use skip-syntax-backward properly.
If backward search finds a separator, move forward over it.
(shell-forward-command): Call skip-syntax-backward properly.
This commit is contained in:
Richard M. Stallman 1993-12-24 05:42:58 +00:00
parent 6eb7492c51
commit b0f867435d
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/shell.el
View File

@ -589,7 +589,7 @@ See `shell-command-regexp'."
(let ((limit (save-excursion (end-of-line nil) (point))))
(if (re-search-forward (concat shell-command-regexp "\\([;&|][\\s ]*\\)+")
limit 'move arg)
(skip-syntax-backward "^\\s "))))
(skip-syntax-backward " "))))
(defun shell-backward-command (&optional arg)
@ -597,11 +597,13 @@ See `shell-command-regexp'."
See `shell-command-regexp'."
(interactive "p")
(let ((limit (save-excursion (comint-bol nil) (point))))
(skip-syntax-backward "\\s " limit)
(if (> limit (point))
(save-excursion (beginning-of-line) (setq limit (point))))
(skip-syntax-backward " " limit)
(if (re-search-backward
(format "[;&|]+[\\s ]*\\(%s\\)" shell-command-regexp) limit 'move arg)
(progn (goto-char (match-beginning 1))
(skip-syntax-backward "^\\s ")))))
(skip-chars-forward ";&|")))))
(defun shell-get-current-command ()