Function: unmorse-region

unmorse-region is an autoloaded, interactive and byte-compiled function defined in morse.el.gz.

Signature

(unmorse-region BEG END)

Documentation

Convert Morse coded text in region to plain text.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/play/morse.el.gz
;;;###autoload
(defun unmorse-region (beg end)
  "Convert Morse coded text in region to plain text."
  (interactive "*r")
  (if (integerp end)
      (setq end (copy-marker end)))
  (save-excursion
    (let (str paren morse)
      (goto-char beg)
      (while (< (point) end)
	(if (null (looking-at "[-.]+"))
	    (forward-char 1)
	  (setq str (buffer-substring (match-beginning 0) (match-end 0)))
	  (if (null (setq morse (rassoc str morse-code)))
	      (goto-char (match-end 0))
	    (replace-match
		  (if (string-equal "(" (car morse))
		      (if (setq paren (null paren)) "(" ")")
		    (car morse)) t)
	    (if (looking-at "/")
		(delete-char 1))))))))