Replace Lisp calls to delete-backward-char by delete-char.

[bpt/emacs.git] / lisp / progmodes / dcl-mode.el

diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index 04a0418..ead8b5d 100644 (file)
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -1549,13 +1549,11 @@ Also remove the continuation mark if easily detected."
   (interactive "*P")
   (delete-indentation arg)
   (let ((type (dcl-get-line-type)))
-    (if (and (or (equal type '$)
-                (equal type '-)
-                (equal type 'empty-$))
+    (if (and (member type '($ - empty-$))
             (not (bobp))
-            (= (char-after (1- (point))) ?-))
+            (= (char-before) ?-))
        (progn
-         (delete-backward-char 1)
+         (delete-char -1)
          (fixup-whitespace)))))