[nongnu] elpa/drupal-mode 6f40ad04b7 282/308: Remove drupal-mode-beginning-of-line

[ELPA Syncer]

branch: elpa/drupal-mode
commit 6f40ad04b760d2266b8c07283df266471d85a9b2
Author: Thomas Fini Hansen <xen@xen.dk>
Commit: Thomas Fini Hansen <xen@xen.dk>

    Remove drupal-mode-beginning-of-line
---
 drupal-mode.el | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/drupal-mode.el b/drupal-mode.el
index b8c2a15694..f8da836cc5 100644
--- a/drupal-mode.el
+++ b/drupal-mode.el
@@ -252,8 +252,6 @@ See `drupal-mode-map'.")
     ;; mode map on C-c C-v C-`mnemonic-key'.
     (dolist (elem drupal-mode-map-alist)
       (define-key map `[(control c) (control v) (control ,(car elem))] (cdr 
elem)))
-
-    (define-key map [(control a)] #'drupal-mode-beginning-of-line)
     map)
   "Keymap for `drupal-mode'")
 
@@ -700,35 +698,6 @@ instead."
        ((fboundp 'php-extras-eldoc-documentation-function)
         (php-extras-eldoc-documentation-function))))))
 
-(defun drupal-mode-beginning-of-line (&optional n)
-  "Move point to beginning of property value or to beginning of line.
-The prefix argument N is passed directly to `beginning-of-line'.
-
-This command is identical to `beginning-of-line' if not in a mode
-derived from `conf-mode'.
-
-If point is on a (non-continued) property line, move point to the
-beginning of the property value or the beginning of line,
-whichever is closer.  If point is already at beginning of line,
-move point to beginning of property value.  Therefore, repeated
-calls will toggle point between beginning of property value and
-beginning of line.
-
-Heavily based on `message-beginning-of-line' from Gnus."
-  (interactive "p")
-  (let ((zrs 'zmacs-region-stays))
-    (when (and (featurep 'xemacs) (interactive-p) (boundp zrs))
-      (set zrs t)))
-  (if (derived-mode-p 'conf-mode)
-      (let* ((here (point))
-             (bol (progn (beginning-of-line n) (point)))
-             (eol (point-at-eol))
-             (eoh (re-search-forward "= *" eol t)))
-        (goto-char
-         (if (and eoh (or (< eoh here) (= bol here)))
-             eoh bol)))
-    (beginning-of-line n)))
-
 
 
 (defvar drupal-local-variables (make-hash-table :test 'equal)