[elpa] externals/objed c0a65ec 108/216: Remove redundant iblock object

[Stefan Monnier]

branch: externals/objed
commit c0a65ec4ece19aea65673752bf8012cde0b5aa57
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Remove redundant iblock object
---
 objed-objects.el | 7 +------
 objed.el         | 8 ++++----
 2 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index eeeff00..01c8944 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1620,7 +1620,7 @@ non-nil the indentation block can contain empty lines."
 
 
 
-(objed-define-object nil iblock
+(objed-define-object nil block
   :get-obj
   (let ((bounds (objed--get-indent-bounds nil t)))
     (when bounds
@@ -2160,11 +2160,6 @@ non-nil the indentation block can contain empty lines."
   :try-prev
   (comint-previous-prompt 1))
 
-;; dummy object for python version...
-;; otherwise there is no command
-(objed-define-object nil block
-  :get-obj nil)
-
 (declare-function python-nav-end-of-block "ext:python")
 (declare-function python-nav-beginning-of-block "ext:python")
 (declare-function python-nav-forward-block "ext:python")
diff --git a/objed.el b/objed.el
index 02b16c0..db507bf 100644
--- a/objed.el
+++ b/objed.el
@@ -843,14 +843,14 @@ To define new operations see `objed-define-op'.")
     (define-key map "l" 'objed-line-object)
 
     ;; sexp at point
-    (define-key map "a" 'objed-sentence-object)
+    (define-key map "." 'objed-sentence-object)
     (define-key map "p" 'objed-paragraph-object)
     (define-key map "q" 'objed-textblock-object)
     (define-key map "o" 'objed-sexp-object)
 
     (define-key map "i" 'objed-indent-object)
     ;; meg
-    (define-key map "m" 'objed-iblock-object)
+    (define-key map "a" 'objed-block-object)
 
     (define-key map "b" 'objed-bracket-object)
     (define-key map "d" 'objed-defun-object)
@@ -1310,7 +1310,7 @@ matches IREGEX is not displayed."
 
 ;; * Basic Movement, Block Objects (textblocks)
 
-(defvar objed--block-objects '(buffer iblock section paragraph textblock 
indent line)
+(defvar objed--block-objects '(buffer section paragraph textblock block indent 
line)
   "List of objects which are 'line based'.
 
 Objects which are built by lines of text.")
@@ -1326,7 +1326,7 @@ If IGNORE is non-nil it should be an object of
                    (let ((os nil))
                      ;; TODO: sort by object size?
                      (dolist (o objed--block-objects (nreverse os))
-                       (unless (memq o '(indent textblock iblock))
+                       (unless (memq o '(indent textblock block))
                          (push o os)))))
                   (t
                    ;; performance is poor on slow