diff options
| author |   Ulrich Müller <ulm@gentoo.org> | 2023-07-06 00:20:58 +0200 |
|---|---|---|
| committer | Ulrich Müller <ulm@gentoo.org> | 2023-07-06 00:20:58 +0200 |
| commit | 64761b573b89795fd2546fcbbebbb58e4efcb789 (patch) | |
| tree | 9b3aec6355f168bc0f825bbff7f1d7b526797dbc | |
| parent | Version 1.64 released (diff) | |
| download | ebuild-mode-64761b573b89795fd2546fcbbebbb58e4efcb789.tar.gz ebuild-mode-64761b573b89795fd2546fcbbebbb58e4efcb789.tar.bz2 ebuild-mode-64761b573b89795fd2546fcbbebbb58e4efcb789.zip | |
XEmacs compatibility fix
* ebuild-mode.el (ebuild-repo-mode): local-variable-p has two
required arguments in XEmacs, bug 903273.
Bug: https://bugs.gentoo.org/903273#c3
Signed-off-by: Ulrich Müller <ulm@gentoo.org>
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | ebuild-mode.el | 10 |
2 files changed, 10 insertions, 5 deletions
@@ -1,3 +1,8 @@ +2023-07-05 Ulrich Müller <ulm@gentoo.org> + + * ebuild-mode.el (ebuild-repo-mode): local-variable-p has two + required arguments in XEmacs, bug 903273. + 2023-06-17 Ulrich Müller <ulm@gentoo.org> * Version 1.64 released. diff --git a/ebuild-mode.el b/ebuild-mode.el index 16031b4..c9b16c2 100644 --- a/ebuild-mode.el +++ b/ebuild-mode.el @@ -831,18 +831,18 @@ This will be added to the `write-contents-functions' hook." ;; make-local-hook gives a byte-compiler warning in GNU Emacs (make-local-hook 'write-contents-hooks) (add-hook 'write-contents-hooks 'ebuild-repo-mode-before-save t t)) - (unless (local-variable-p 'fill-column) + (unless (local-variable-p 'fill-column (current-buffer)) (setq fill-column 72)) - (unless (local-variable-p 'tab-width) + (unless (local-variable-p 'tab-width (current-buffer)) (setq tab-width 4)) (when (derived-mode-p 'nxml-mode) (eval-when-compile (ignore-errors (require 'nxml-mode))) - (unless (or (local-variable-p 'nxml-child-indent) - (local-variable-p 'nxml-attribute-indent)) + (unless (or (local-variable-p 'nxml-child-indent (current-buffer)) + (local-variable-p 'nxml-attribute-indent (current-buffer))) (let ((indent (if ebuild-mode-xml-indent-tabs 4 2))) (set (make-local-variable 'nxml-child-indent) indent) (set (make-local-variable 'nxml-attribute-indent) (* 2 indent)))) - (unless (local-variable-p 'indent-tabs-mode) + (unless (local-variable-p 'indent-tabs-mode (current-buffer)) (setq indent-tabs-mode ebuild-mode-xml-indent-tabs)))) ;;;###autoload |