kotovalexarian-likes-github
/
haml--haml
mirror of https://github.com/haml/haml.git
1
0
Fork 0
Code Releases Activity

Don't allow customization of backspace functions.

This commit is contained in:
Nathan Weizenbaum 2008-04-22 16:40:35 -07:00
parent 4d97343401
commit fdb9ff880c
2 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/haml-mode.el
View File

@ -33,11 +33,6 @@
:type 'integer :type 'integer
:group 'haml) :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 (defface haml-tab-face
'((((class color)) (:background "red" :foreground "red" :bold t)) '((((class color)) (:background "red" :foreground "red" :bold t))
(t (:reverse-video 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." immediately previous multiple of `haml-indent-offset' spaces."
(interactive "*p") (interactive "*p")
(if (or (/= (current-indentation) (current-column)) (bolp)) (if (or (/= (current-indentation) (current-column)) (bolp))
(funcall haml-backspace-function arg) (backward-delete-char arg)
(let ((ci (current-column))) (let ((ci (current-column)))
(beginning-of-line) (beginning-of-line)
(delete-horizontal-space) (delete-horizontal-space)

7
extra/sass-mode.el
View File

@ -31,11 +31,6 @@
:type 'integer :type 'integer
:group 'sass) :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 (defface sass-tab-face
'((((class color)) (:background "red" :foreground "red" :bold t)) '((((class color)) (:background "red" :foreground "red" :bold t))
(t (:reverse-video 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." immediately previous multiple of `sass-indent-offset' spaces."
(interactive "*p") (interactive "*p")
(if (or (/= (current-indentation) (current-column)) (bolp)) (if (or (/= (current-indentation) (current-column)) (bolp))
(funcall sass-backspace-function arg) (backward-delete-char arg)
(let ((ci (current-column))) (let ((ci (current-column)))
(beginning-of-line) (beginning-of-line)
(delete-horizontal-space) (delete-horizontal-space)