From b5e83a3beb5effb45432d56240db1ee105154f81 Mon Sep 17 00:00:00 2001 From: Alexis Purslane Date: Sat, 8 Jun 2024 12:39:58 -0400 Subject: [PATCH] Doing my best --- tads3-mode.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/tads3-mode.el b/tads3-mode.el index a2d70ac..62a8ed5 100644 --- a/tads3-mode.el +++ b/tads3-mode.el @@ -1318,7 +1318,7 @@ keywords list." tads3--last-source-update-time (file-attribute-modification-time (file-attributes file))))) (tads3--get-source-files)))) - (tag-output (generate-new-buffer "*TADS tag generation*")) + (tag-output (get-buffer-create "*TADS tag generation*")) (tag-process (apply #'start-process `("tag-generation-process" ,tag-output @@ -1353,7 +1353,7 @@ keywords list." tads3--identifiers)) (_ (message "Unexpected tag line format: %s" tag)))) (message "TADS completion tags refreshed.")) - (message "TADS tag reading process exited with message: " (buffer-string)))))) + (message "TADS tag reading process exited unsuccessfully with message: " (buffer-string)))))) ;; This function is run when a file is saved, so the current file (which ;; was the one just saved) is always going to be the latest-modified one, ;; so that's the time we'll use for when this run happened @@ -1371,8 +1371,7 @@ keywords list." (maphash (lambda (keyword props) (when (or (and (= (char-before (car bounds)) ?\.) (memq (car props) '(property method action verb sub-object))) - (and (not (= (char-before (car bounds)) ?\.)) - (not (memq (car props) '(property method sub-object))))) + (not (= (char-before (car bounds)) ?\.))) (push (propertize keyword 'meta props) alist))) tads3--identifiers) alist)