From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Heime Newsgroups: gmane.emacs.help Subject: wrong-type-argument for hash-table Date: Sun, 15 Sep 2024 19:10:15 +0000 Message-ID: <8CVY38wXnUXLoHkrVUauKiKseDKPxKPJliAWD5wkP5iHDYKY490SwFqX5RQXEHInHy9gNSUGzbsh4lDmorm-C4Rwt9WnxGi6tU-mlQ67zsk=@protonmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="13624"; mail-complaints-to="usenet@ciao.gmane.io" To: Heime via Users list for the GNU Emacs text editor Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Sun Sep 15 21:11:19 2024 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1spueU-0003Nq-Mf for geh-help-gnu-emacs@m.gmane-mx.org; Sun, 15 Sep 2024 21:11:18 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1spudr-0005KK-VR; Sun, 15 Sep 2024 15:10:39 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1spudn-0005Jx-6x for help-gnu-emacs@gnu.org; Sun, 15 Sep 2024 15:10:35 -0400 Original-Received: from mail-40135.protonmail.ch ([185.70.40.135]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1spudk-0000Or-HD for help-gnu-emacs@gnu.org; Sun, 15 Sep 2024 15:10:34 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=protonmail.com; s=protonmail3; t=1726427422; x=1726686622; bh=iva2c3bt6oNCjuvsgxrw1mloj1erL0m4WCQULe6PIHs=; h=Date:To:From:Subject:Message-ID:Feedback-ID:From:To:Cc:Date: Subject:Reply-To:Feedback-ID:Message-ID:BIMI-Selector; b=mbcuQG+d9+V0DYc+ENaLneGrclEvF5tHN5hKNR0xgCt+5JVejJJ6iuR3FZZn9mTKQ EEU9TtfZikBcylykxn+DBOEyvHlkjBY4To0yP/gCUiBzsERHoz1XQVUQgF1tL/Mq5D wfySDzb3oFGLlU739UemuRTSIjGzqMlhCvqSBgr/K8gJ8t3X4EjiTJ/8CAvJoiwRcq Crxk1NGkPXMVMNjLEHxm+n13UAzvKRroU23duCAtIQLht9HqCo/MNvtCesJBKTvjrc qTO+kvyA9VMN3WT4UjtwTBvFsyYizLfFCMaH8ZR2sYAZgeeWLZqdONnqFJqTNiJ4PD H+EHH5P5Uu4KQ== Feedback-ID: 57735886:user:proton X-Pm-Message-ID: d659c9972d16508bd8a8b372088307ca8f3f8a91 Received-SPF: pass client-ip=185.70.40.135; envelope-from=heimeborgia@protonmail.com; helo=mail-40135.protonmail.ch X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_MSPIKE_H4=-0.01, RCVD_IN_MSPIKE_WL=-0.01, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.help:147989 Archived-At: This function gives the error=20 Debugger entered--Lisp error: (wrong-type-argument hash-table-p (("GLXKS" .= "~/Opstk/bin/xiakos") ("PROTL" . "~/Opstk/bin/xiakos...") ("SCHNR" . "~/Op= stk/bin/xiakos..."))) maphash((closure ((anctr)) (waypt dirpath) (let* ((wptfail (gethash waypt= anctr)) (start (point))) (insert (format " - %-8s" waypt)) (add-text-prope= rties start (point) (list 'face (list ':foreground (if wptfail "red" "green= ")))) (insert (format "\n %s\n" dirpath)))) (("GLXKS" . "~/Opstk/bin/xia= kos") ("PROTL" . "~/Opstk/bin/xiakos...") ("SCHNR" . "~/Opstk/bin/xiakos...= "))) (if (hash-table-p fpln) (maphash #'(lambda (waypt dirp --------------------- I cannot understand the reason. =20 (hash-table-p fpln) gives nil (fpln is an alist) (hash-table-p anctr) also gives nil (anctr is an alist) So it should go to the alist part of the conditional, but it does not.=20 --------------------- (defun torium-chart (fpln anctr &optional bfrn) (let* ( (bfrname (or bfrn "torium F-Pln")) (qbuffer (get-buffer-create (concat "=F0=92=86=B3 " bfrname))) ) (with-current-buffer qbuffer (erase-buffer) (face-remap-add-relative 'default :background "blue") (insert bfrname " Waypoint Annunciator \n\n") (insert (format "[Fpln] %s\n" (if (hash-table-p fpln) "hash-table" "alist"))) (insert (format "[Anctr] %s\n" (if (hash-table-p anctr) "hash-table" "alist"))) ;; Print Waypoints and corresponding directory paths (if (hash-table-p fpln) ;; HASH-TABLE PART (maphash (lambda (waypt dirpath) (let* ( (wptfail (gethash waypt anctr)) (start (point)) ) ;; Insert waypoint (insert (format " - %-8s" waypt)) ;; Insert validity text (insert (format "\n %s\n" dirpath))) ) fpln) ;; ALIST PART (dolist (entry fpln) (let* ( (waypt (car entry)) (dirpath (questorium-fpln-waypt waypt fpln)) (wptfail (cdr (assoc waypt anctr))) (start (point)) ) ;; Insert waypoint (insert (format " %-8s" waypt)) ;; Insert validity text (insert (format "\n %s\n" dirpath)))) ) ;; Move to beginning of buffer (goto-char (point-min))) ;; Display the buffer (switch-to-buffer qbuffer)))