Mercurial > emacs

comparison lisp/net/dbus.el @ 110034:c87f89486bb7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use `declare' in defmacros. * lisp/window.el (save-selected-window): * lisp/subr.el (with-temp-file, with-temp-message, with-syntax-table): * lisp/progmodes/python.el (def-python-skeleton): * lisp/net/dbus.el (dbus-ignore-errors): * lisp/jka-cmpr-hook.el (with-auto-compression-mode): * lisp/international/mule.el (with-category-table): * lisp/emacs-lisp/timer.el (with-timeout): * lisp/emacs-lisp/lisp-mnt.el (lm-with-file): * lisp/emacs-lisp/eieio.el (with-slots): * lisp/emacs-lisp/easymenu.el (easy-menu-define): * lisp/emacs-lisp/debug.el (debugger-env-macro): * lisp/emacs-lisp/cl-compat.el (Multiple-value-bind, Multiple-value-setq) (Multiple-value-call, Multiple-value-prog1): * lisp/emacs-lisp/cl-seq.el (cl-parsing-keywords, cl-check-key) (cl-check-test-nokey, cl-check-test, cl-check-match): Move indent and edebug rule to definition. * lisp/emacs-lisp/lisp-mode.el (save-selected-window) (with-current-buffer, combine-after-change-calls) (with-output-to-string, with-temp-file, with-temp-buffer) (with-temp-message, with-syntax-table, read-if, eval-after-load) (dolist, dotimes, when, unless): * lisp/emacs-lisp/byte-run.el (inline): Remove indent rule, redundant.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 30 Aug 2010 15:03:05 +0200
parents aa3e4f636621
children de02b794c330
comparison
equal deleted inserted replaced
110033:2c9ea5d32862 110034:c87f89486bb7
90 "Message type of a signal message.") 90 "Message type of a signal message.")
91 91
92 (defmacro dbus-ignore-errors (&rest body) 92 (defmacro dbus-ignore-errors (&rest body)
93 "Execute BODY; signal D-Bus error when `dbus-debug' is non-nil. 93 "Execute BODY; signal D-Bus error when `dbus-debug' is non-nil.
94 Otherwise, return result of last form in BODY, or all other errors." 94 Otherwise, return result of last form in BODY, or all other errors."
95 (declare (indent 0) (debug t))
95 `(condition-case err 96 `(condition-case err
96 (progn ,@body) 97 (progn ,@body)
97 (dbus-error (when dbus-debug (signal (car err) (cdr err)))))) 98 (dbus-error (when dbus-debug (signal (car err) (cdr err))))))
98
99 (put 'dbus-ignore-errors 'lisp-indent-function 0)
100 (put 'dbus-ignore-errors 'edebug-form-spec '(form body))
101 (font-lock-add-keywords 'emacs-lisp-mode '("\\<dbus-ignore-errors\\>")) 99 (font-lock-add-keywords 'emacs-lisp-mode '("\\<dbus-ignore-errors\\>"))
102 100
103 (defvar dbus-event-error-hooks nil 101 (defvar dbus-event-error-hooks nil
104 "Functions to be called when a D-Bus error happens in the event handler. 102 "Functions to be called when a D-Bus error happens in the event handler.
105 Every function must accept two arguments, the event and the error variable 103 Every function must accept two arguments, the event and the error variable