|
From: | Emanuel Berg |
Subject: | Re: closure within closure, incorrect (?) byte-compiler warnings |
Date: | Wed, 10 Nov 2021 05:16:28 +0100 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) |
Now it works with a workaround that involves dedicated functions to handle the interactive cases of the original functions. Thanks to people at gmane.emacs.bugs ... ;;; -*- lexical-binding: t -*- ;;; ;;; this file: ;;; https://dataswamp.org/~incal/emacs-init/w3m/w3m-survivor.el (require 'w3m-search) (require 'cl-lib) (let ((opts "torrent 1080p") (show "Survivor") (prompt "episode: ") ) (let ((next 1)) (defun australian-survivor-interactive () (list (read-number prompt next)) ) (declare-function australian-survivor-interactive nil) (defalias 'aus #'australian-survivor-interactive) (defun australian-survivor (ep) (interactive (australian-survivor-interactive)) (w3m-search w3m-search-default-engine (format "s08e%02d Australian %s %s" ep show opts) ) (setq next (1+ ep)) ) (declare-function australian-survivor nil) ) (let ((next 1)) (defun us-survivor-interactive () (list (read-number prompt next)) ) (declare-function us-survivor-interactive nil) (defalias 'us #'us-survivor-interactive) (defun us-survivor (ep) (interactive (us-survivor-interactive)) (w3m-search w3m-search-default-engine (format "s41%02d %s %s" ep show opts) ) (setq next (1+ ep)) ) (declare-function us-survivor nil) )) -- underground experts united https://dataswamp.org/~incal
[Prev in Thread] | Current Thread | [Next in Thread] |