Mercurial > hg > xemacs-beta

comparison lisp/prim/process.el @ 193:f53b5ca2e663 r20-3b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b23
author cvs
date Mon, 13 Aug 2007 09:58:30 +0200
parents 9ad43877534d
children
comparison
equal deleted inserted replaced
192:9d35321dd38c 193:f53b5ca2e663
259 (if (= (buffer-size) 0) 259 (if (= (buffer-size) 0)
260 0 260 0
261 (count-lines (point-min) (point-max)))))) 261 (count-lines (point-min) (point-max))))))
262 (cond ((= lines 0) 262 (cond ((= lines 0)
263 (if success 263 (if success
264 (message 264 (display-message
265 'command
265 "(Shell command completed with no output)")) 266 "(Shell command completed with no output)"))
266 (kill-buffer buffer)) 267 (kill-buffer buffer))
267 ((and success (= lines 1)) 268 ((and success (= lines 1))
268 (message "%s" 269 (message "%s"
269 (save-excursion 270 (save-excursion