0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix #7337: Byte Compiler Warnings for wesnoth-mode (#7338)

Browse source 
Switch from obsolete Emacs Lisp functions to modern functions in order
to remove two compiler warnings.

Properly quote lambdas with #' to remove two more compiler warnings.
This commit is contained in:
Jason Stephenson 2023-01-29 12:14:59 -05:00 • committed by GitHub
parent 33ce739362
commit bce0493f03
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
data/tools/emacs_mode/wesnoth-mode.el
View file

@ -1141,8 +1141,8 @@ ELEMENT is an element to find a match for."
(progn
(goto-char target)
(back-to-indentation))
(when (interactive-p)
(message "%s" "Tag does not appear to be matched")))))
(when (called-interactively-p 'interactive)
(message "%s" "Tag does not appear to be matched")))))
;;; Indentation
(defun wesnoth-wml-start-pos ()
@ -1345,9 +1345,9 @@ enabled when the attempt to match initially fails."
(nth position (gethash parent
wesnoth-tag-hash-table))))
(mapc
'(lambda (x)
#'(lambda (x)
(let ((value (nth position (cdr x))))
(and value (mapc '(lambda (y)
(and value (mapc #'(lambda (y)
(setq result (cons y result)))
value))))
(or wesnoth-tmp-tag-data (wesnoth-refresh-wml-data))))
@ -1753,7 +1753,7 @@ maintained through successive calls."
(setq wesnoth-define-blocks nil
wesnoth-tmp-tag-data nil)
(set-buffer outbuf)
(toggle-read-only t)
(read-only-mode 1)
(let ((buffer (buffer-name))
(buffer-read-only nil))
(display-buffer outbuf t)