debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 04:18:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Improved compatibility for window-body-width in Emacs < 24

Browse source 
Fix byte compiler warning "Warning: the function `window-body-width'
is not known to be defined." by moving our compatibility wrapper
before its use and simplify the definition to a defalias for the old
name of the function.
This commit is contained in:
Austin Clements 2014-08-08 13:06:05 -04:00 committed by David Bremner
parent f92342cb76
commit c1845bf0a4
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/notmuch-jump.el
View file

@ -25,6 +25,10 @@
(require 'notmuch-lib) (require 'notmuch-lib)
(require 'notmuch-hello) (require 'notmuch-hello)
(unless (fboundp 'window-body-width)
;; Compatibility for Emacs pre-24
(defalias 'window-body-width 'window-width))
;;;###autoload ;;;###autoload
(defun notmuch-jump-search () (defun notmuch-jump-search ()
"Jump to a saved search by shortcut key. "Jump to a saved search by shortcut key.
@ -165,9 +169,3 @@ buffer."
(setq notmuch-jump--action ',(third action)) (setq notmuch-jump--action ',(third action))
(exit-minibuffer)))) (exit-minibuffer))))
map)) 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)))))