Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mouse.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 441bb1e64a06
children c53a95d3c46d
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
73 ((eq major-mode 'vm-presentation-mode) 73 ((eq major-mode 'vm-presentation-mode)
74 (vm-menu-popup-context-menu event)) 74 (vm-menu-popup-context-menu event))
75 ((eq major-mode 'vm-virtual-mode) 75 ((eq major-mode 'vm-virtual-mode)
76 (vm-menu-popup-context-menu event)) 76 (vm-menu-popup-context-menu event))
77 ((eq major-mode 'mail-mode) 77 ((eq major-mode 'mail-mode)
78 (vm-menu-popup-mode-menu event)))))) 78 (vm-menu-popup-context-menu event))))))
79 79
80 (defun vm-mouse-3-help (object) 80 (defun vm-mouse-3-help (object)
81 nil 81 nil
82 "Use mouse button 3 to see a menu of options.") 82 "Use mouse button 3 to see a menu of options.")
83 83
266 start end command nil 266 start end command nil
267 (list output-buffer tempfile) 267 (list output-buffer tempfile)
268 nil arg-list)) 268 nil arg-list))
269 (cond ((equal status 0) t) 269 (cond ((equal status 0) t)
270 ;; even if exit status non-zero, if there was no 270 ;; even if exit status non-zero, if there was no
271 ;; diagnostic output the command probablyt 271 ;; diagnostic output the command probably
272 ;; succeeded. I have tried just use exit status 272 ;; succeeded. I have tried to just use exit status
273 ;; as the failure criteria and users complained. 273 ;; as the failure criterion and users complained.
274 ((equal (nth 7 (file-attributes tempfile)) 0) 274 ((equal (nth 7 (file-attributes tempfile)) 0)
275 (message "%s exited non-zero (code %s)" command status) 275 (message "%s exited non-zero (code %s)" command status)
276 t) 276 t)
277 (t (save-excursion 277 (t (save-excursion
278 (message "%s exited non-zero (code %s)" command status) 278 (message "%s exited non-zero (code %s)" command status)