(chess-display-mode-map): Bind DEL to `chess-input-shortcut-delete

[gnu-emacs-elpa] / chess-plain.el

diff --git a/chess-plain.el b/chess-plain.el
index 7dd66f15db42a47c909cea25feabb8ee762401c4..e5e1412b752fc89e41d3aa67dd085f4130d7d23a 100644 (file)
--- a/chess-plain.el
+++ b/chess-plain.el
@@ -35,7 +35,8 @@
 
 (defgroup chess-plain nil
   "A minimal, customizable ASCII display."
-  :group 'chess-display)
+  :group 'chess-display
+  :link '(custom-manual "(chess)Plain ASCII diagram displays"))
 
 (defcustom chess-plain-border-style [?+ ?- ?+ ?| ?| ?+ ?- ?+]
   "If non-nil, a vector describing the border characters."
@@ -244,7 +245,8 @@ modify `chess-plain-piece-chars' to avoid real confusion.)"
   (cond
    ((eq event 'initialize) t)
    ((eq event 'popup) (funcall chess-plain-popup-function))
-   (t (apply (intern-soft (concat "chess-plain-" (symbol-name event))) args))))
+   (t (let ((handler (intern-soft (concat "chess-plain-" (symbol-name event)))))
+       (when handler (apply handler args))))))
 
 (defun chess-plain-popup ()
   (if chess-plain-separate-frame