Mercurial > hg > xemacs-beta

comparison lisp/process.el @ 5555:a39cd9dc92ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct a typo from Mats' merge, process.el, thank you the byte-compiler lisp/ChangeLog addition: 2011-08-24 Aidan Kehoe <kehoea@parhasard.net> * process.el (shell-command-on-region): Correct typo from the merge, nnot -> not.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 24 Aug 2011 11:22:30 +0100
parents 11da5b828d10
children cc6f0266bc36
comparison
equal deleted inserted replaced
5554:a42e686a01bf 5555:a39cd9dc92ba
451 (if error-file 451 (if error-file
452 (list t error-file) 452 (list t error-file)
453 t) 453 t)
454 nil shell-command-switch command)) 454 nil shell-command-switch command))
455 (let ((shell-buffer (get-buffer "*Shell Command Output*"))) 455 (let ((shell-buffer (get-buffer "*Shell Command Output*")))
456 (and shell-buffer (nnot (eq shell-buffer (current-buffer))) 456 (and shell-buffer (not (eq shell-buffer (current-buffer)))
457 (kill-buffer shell-buffer))) 457 (kill-buffer shell-buffer)))
458 ;; Don't muck with mark unless REPLACE says we should. 458 ;; Don't muck with mark unless REPLACE says we should.
459 (and replace swap (exchange-point-and-mark t))) 459 (and replace swap (exchange-point-and-mark t)))
460 ;; No prefix argument: put the output in a temp buffer, 460 ;; No prefix argument: put the output in a temp buffer,
461 ;; replacing its entire contents. 461 ;; replacing its entire contents.