[PATCH] emacs: Fix byte compile warning on Emacs < 24
Fix "Warning: the function `window-body-width' is not known to be defined." by moving our compatibility wrapper before its use. --- emacs/notmuch-jump.el | 12 ++-- 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/emacs/notmuch-jump.el b/emacs/notmuch-jump.el index 05bbce5..35082a6 100644 --- a/emacs/notmuch-jump.el +++ b/emacs/notmuch-jump.el @@ -25,6 +25,12 @@ (require 'notmuch-lib) (require 'notmuch-hello) +(unless (fboundp 'window-body-width) + ;; Compatibility for Emacs pre-24 + (defun window-body-width ( window) +(let ((edges (window-inside-edges window))) + (- (caddr edges) (car edges) + ;;;###autoload (defun notmuch-jump-search () "Jump to a saved search by shortcut key. @@ -165,9 +171,3 @@ (defun notmuch-jump--make-keymap (action-map) (setq notmuch-jump--action ',(third action)) (exit-minibuffer map)) - -(unless (fboundp 'window-body-width) - ;; Compatibility for Emacs pre-24 - (defun window-body-width ( window) -(let ((edges (window-inside-edges window))) - (- (caddr edges) (car edges) -- 2.0.0
[PATCH] emacs: Fix byte compile warning on Emacs 24
Fix Warning: the function `window-body-width' is not known to be defined. by moving our compatibility wrapper before its use. --- emacs/notmuch-jump.el | 12 ++-- 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/emacs/notmuch-jump.el b/emacs/notmuch-jump.el index 05bbce5..35082a6 100644 --- a/emacs/notmuch-jump.el +++ b/emacs/notmuch-jump.el @@ -25,6 +25,12 @@ (require 'notmuch-lib) (require 'notmuch-hello) +(unless (fboundp 'window-body-width) + ;; Compatibility for Emacs pre-24 + (defun window-body-width (optional window) +(let ((edges (window-inside-edges window))) + (- (caddr edges) (car edges) + ;;;###autoload (defun notmuch-jump-search () Jump to a saved search by shortcut key. @@ -165,9 +171,3 @@ (defun notmuch-jump--make-keymap (action-map) (setq notmuch-jump--action ',(third action)) (exit-minibuffer map)) - -(unless (fboundp 'window-body-width) - ;; Compatibility for Emacs pre-24 - (defun window-body-width (optional window) -(let ((edges (window-inside-edges window))) - (- (caddr edges) (car edges) -- 2.0.0 ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch
