Function: artist-unintersection-char

artist-unintersection-char is a byte-compiled function defined in artist.el.gz.

Signature

(artist-unintersection-char LINE-C BUFFER-C)

Documentation

Restore character to before intersection when removing LINE-C from BUFFER-C.

Return character according to this scheme:

LINE-C BUFFER-C return
- + |
| + -
\ X /
/ X \
other combinations artist-erase-char(var)/artist-erase-char(fun).

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
;; artist-unintersection-char
;;
;; Note: If changing this, see the note for artist-vaporize-lines
;;
(defun artist-unintersection-char (line-c buffer-c)
  "Restore character to before intersection when removing LINE-C from BUFFER-C.
Return character according to this scheme:

		LINE-C	BUFFER-C	return
		 -	 +		   |
		 |	 +		   -
		 \\	 X		   /
		 /	 X		   \\
		other combinations	   `artist-erase-char'."

  (cond ((and (= line-c ?- )  (= buffer-c ?+ ))  ?|  )
	((and (= line-c ?| )  (= buffer-c ?+ ))  ?-  )
	((and (= line-c ?\\ ) (= buffer-c ?X ))  ?/  )
	((and (= line-c ?/ )  (= buffer-c ?X ))  ?\\ )
	((= line-c buffer-c) artist-erase-char)
	(t buffer-c)))