From fdb9ff880c681e43e7890b5acee0fc4354b001dc Mon Sep 17 00:00:00 2001 From: Nathan Weizenbaum Date: Tue, 22 Apr 2008 16:40:35 -0700 Subject: [PATCH] Don't allow customization of backspace functions. --- extra/haml-mode.el | 7 +------ extra/sass-mode.el | 7 +------ 2 files changed, 2 insertions(+), 12 deletions(-) diff --git a/extra/haml-mode.el b/extra/haml-mode.el index ebd2c9d5..245e00cf 100644 --- a/extra/haml-mode.el +++ b/extra/haml-mode.el @@ -33,11 +33,6 @@ :type 'integer :group 'haml) -(defcustom haml-backspace-function 'backward-delete-char-untabify - "Function called by `haml-electric-backspace' when deleting backwards." - :type 'function - :group 'haml) - (defface haml-tab-face '((((class color)) (:background "red" :foreground "red" :bold t)) (t (:reverse-video t))) @@ -232,7 +227,7 @@ If invoked following only whitespace on a line, will back-dent to the immediately previous multiple of `haml-indent-offset' spaces." (interactive "*p") (if (or (/= (current-indentation) (current-column)) (bolp)) - (funcall haml-backspace-function arg) + (backward-delete-char arg) (let ((ci (current-column))) (beginning-of-line) (delete-horizontal-space) diff --git a/extra/sass-mode.el b/extra/sass-mode.el index 0ccacb6e..71e35f51 100644 --- a/extra/sass-mode.el +++ b/extra/sass-mode.el @@ -31,11 +31,6 @@ :type 'integer :group 'sass) -(defcustom sass-backspace-function 'backward-delete-char-untabify - "Function called by `sass-electric-backspace' when deleting backwards." - :type 'function - :group 'sass) - (defface sass-tab-face '((((class color)) (:background "red" :foreground "red" :bold t)) (t (:reverse-video t))) @@ -152,7 +147,7 @@ If invoked following only whitespace on a line, will back-dent to the immediately previous multiple of `sass-indent-offset' spaces." (interactive "*p") (if (or (/= (current-indentation) (current-column)) (bolp)) - (funcall sass-backspace-function arg) + (backward-delete-char arg) (let ((ci (current-column))) (beginning-of-line) (delete-horizontal-space)