diff options
author | Barak A. Pearlmutter <barak+git@cs.nuim.ie> | 2014-02-24 11:09:17 +0000 |
---|---|---|
committer | Barak A. Pearlmutter <barak+git@cs.nuim.ie> | 2014-02-24 11:34:52 +0000 |
commit | 399d0ac8ef3f0f3af872740fb36556b4502a84ff (patch) | |
tree | 7f5243b6a2299dd643bcfbf69726bb986d8d6006 | |
parent | 25a80c8c6d6084474ba186eca72a50abe3a8f6b0 (diff) |
use new-style backquotes in bbdb-mhe.el as in many other .el files
-rw-r--r-- | lisp/bbdb-mhe.el | 45 |
1 files changed, 14 insertions, 31 deletions
diff --git a/lisp/bbdb-mhe.el b/lisp/bbdb-mhe.el index c46a67e..ee7187d 100644 --- a/lisp/bbdb-mhe.el +++ b/lisp/bbdb-mhe.el @@ -33,37 +33,20 @@ (defmacro bbdb/mh-cache-key (message) "Return a (numeric) key for MESSAGE" - (if (> emacs-major-version 23) - ;; New-style backticks - `(let* ((attrs (file-attributes , message)) - (status-time (nth 6 attrs)) - (status-time-2 (cdr status-time)) - (inode (nth 10 attrs))) - (logxor (if (integerp inode) ;; if inode is larger than an emacs int, - inode ;; it's returned as a dotted pair - (car inode)) - (car status-time) - ;; We need the following test because XEmacs returns the - ;; status time as a dotted pair, whereas FSF and Epoch - ;; return it as list. - (if (integerp status-time-2) - status-time-2 - (car status-time-2)))) - ;; Old-style backticks - (`(let* ((attrs (file-attributes (, message))) - (status-time (nth 6 attrs)) - (status-time-2 (cdr status-time)) - (inode (nth 10 attrs))) - (logxor (if (integerp inode) ;; if inode is larger than an emacs int, - inode ;; it's returned as a dotted pair - (car inode)) - (car status-time) - ;; We need the following test because XEmacs returns the - ;; status time as a dotted pair, whereas FSF and Epoch - ;; return it as list. - (if (integerp status-time-2) - status-time-2 - (car status-time-2))))))) + `(let* ((attrs (file-attributes , message)) + (status-time (nth 6 attrs)) + (status-time-2 (cdr status-time)) + (inode (nth 10 attrs))) + (logxor (if (integerp inode) ;; if inode is larger than an emacs int, + inode ;; it's returned as a dotted pair + (car inode)) + (car status-time) + ;; We need the following test because XEmacs returns the + ;; status time as a dotted pair, whereas FSF and Epoch + ;; return it as list. + (if (integerp status-time-2) + status-time-2 + (car status-time-2))))) ;;;###autoload (defun bbdb/mh-update-record (&optional offer-to-create) |