[solved] Re: To switch state of line not working

[Jean Louis <bugs@gnu.support>]

Now it works... (づ｡◕‿‿◕｡)づ

(defun rcd-check ()
  (interactive)
  (let* ((start (line-beginning-position))
	 (end (line-end-position))
	 (line (buffer-substring start end))
	 (check-in "[ ]")
	 (check-out "[✔]")
	 (check-in (list (regexp-quote check-in) check-in))
	 (check-in-there (string-match (car check-in) line))
	 (check-out (list (regexp-quote check-out) check-out))
	 (check-out-there (string-match (cadr check-out) line)))
    (cond ((not (null check-in-there)) (replace-regexp (car check-in) (cadr check-out) nil start end))
	  ((not (null check-out-there)) (replace-regexp (car check-out) (cadr check-in) nil start end))
	  (t (message-box "Oh no! Could not replace without check box!" check-out)))))

 [ ] something

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/