emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/raku-mode a316c3f195 240/253: Remove leftover debugging ga


From: ELPA Syncer
Subject: [nongnu] elpa/raku-mode a316c3f195 240/253: Remove leftover debugging garbage
Date: Sat, 29 Jan 2022 08:29:02 -0500 (EST)

branch: elpa/raku-mode
commit a316c3f19509bebd58655052db6225f702204f06
Author: Roman Hargrave <roman@hargrave.info>
Commit: Roman Hargrave <roman@hargrave.info>

    Remove leftover debugging garbage
---
 raku-indent.el | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/raku-indent.el b/raku-indent.el
index fa600f7426..9b78aff889 100644
--- a/raku-indent.el
+++ b/raku-indent.el
@@ -35,10 +35,6 @@
 
 (defun raku-smie--forward-token ()
   (cond
-   ((progn
-      ;; (message "frwd char-before=`%c` char-after=`%c` point=%s" 
(char-before) (char-after) (point))
-      nil) nil)
-
    ;; Return `;` to fudge end-of-block indentation (I think), as ; is optional 
after a block
    ((and (eq (char-before) ?\})                 ;; Character immediately prior 
to point is `}`
          (raku-smie--not-interpolation-p)       ;; And, not in an interpolation
@@ -48,8 +44,6 @@
 
     (if (memq (char-after) '(?\s ?\t ?\n))      ;; If the above is true, and 
point is followed by /[\s\t\n]/
         (forward-char 1) (forward-comment 1))   ;; Then, advance by one 
character, and one whole comment
-
-    (message "forward cond#1")
     ";")
 
    ((eq (char-after) ?\=)                       ;; Spit out '=' to kick off 
proper indentation for hanging assignment
@@ -67,7 +61,6 @@
 (defun raku-smie--backward-token ()
   (let ((pos (point)))
     (forward-comment (- (point)))               ;; Retreate past ALL comments 
up to point
-    ;; (message "back char-before=`%c` char-after=`%c` point=%s" (char-before) 
(char-after) (point))
     (cond
      ;; FIXME: If the next char is not whitespace, what should we do?
      ;; Cond #1 - Same end-of-block hack, I think
@@ -90,7 +83,6 @@
 
 (defun raku-smie-rules (kind token)
   (progn
-    ;; (message "%S (point: %s)" (cons kind token) (point))
     (pcase (cons kind token)
       ;; Basic indent offset
       (`(:elem . basic) raku-indent-offset)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]