emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: "Sébastien Miquel" <sebastien.miquel@posteo.eu>
To: emacs-orgmode@gnu.org
Subject: Bug: org-indent-region doesn't restore cursor position when org-src-tab-acts-natively is t [9.1.9 (release_9.1.9-65-g5e4542 @ /usr/share/emacs/26.3/lisp/org/)]
Date: Sun, 2 Feb 2020 11:22:33 +0100	[thread overview]
Message-ID: <603f9c4e-c621-7592-5b20-a7354c11d5d2@posteo.eu> (raw)

Given the following src block in org-mode:

#+BEGIN_SRC emacs-lisp
(defun my-function ()
   (instruction1)
   (instruction2)
;;  (instruction3)
   )
#+END_SRC

Steps to reproduce (with emacs -Q):
  1) set org-src-tab-acts-natively to t
  2) set the mark at the beginning of the function definition inside the 
src block
  3) move point to the last line of the src block
  4) call org-indent-region

Effect: the code is indented, but the cursor is moved to first line of
the block.

Expected: the code is indented, and the cursor doesn't move.

Emacs  : GNU Emacs 26.3 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.10)
  of 2019-08-29
Package: Org mode version 9.1.9 (release_9.1.9-65-g5e4542 @ 
/usr/share/emacs/26.3/lisp/org/)

current state:
==============
(setq
  org-src-mode-hook '(org-src-babel-configure-edit-buffer
              org-src-mode-configure-edit-buffer)
  org-after-todo-state-change-hook '(org-clock-out-if-current)
  org-metadown-hook '(org-babel-pop-to-session-maybe)
  org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
  org-mode-hook '(#[0 "\300\301\302\303\304$\207"
            [add-hook change-major-mode-hook org-show-block-all append
             local]
            5]
          #[0 "\300\301\302\303\304$\207"
            [add-hook change-major-mode-hook org-babel-show-result-all
             append local]
            5]
          org-babel-result-hide-spec org-babel-hide-all-hashes)
  org-archive-hook '(org-attach-archive-delete-maybe)
  org-confirm-elisp-link-function 'yes-or-no-p
  org-agenda-before-write-hook '(org-agenda-add-entry-text)
  org-metaup-hook '(org-babel-load-in-session-maybe)
  org-bibtex-headline-format-function #[257 "\300\x01\236A\207" [:title] 3 
"\n\n(fn ENTRY)"]
  org-babel-pre-tangle-hook '(save-buffer)
  org-tab-first-hook '(org-babel-hide-result-toggle-maybe
               org-babel-header-arg-expand)
  org-occur-hook '(org-first-headline-recenter)
  org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
           org-cycle-show-empty-lines
           org-optimize-window-after-visibility-change)
  org-speed-command-hook '(org-speed-command-activate
               org-babel-speed-command-activate)
  org-confirm-shell-link-function 'yes-or-no-p
  org-link-parameters '(("id" :follow org-id-open)
                ("rmail" :follow org-rmail-open :store
             org-rmail-store-link)
                ("mhe" :follow org-mhe-open :store org-mhe-store-link)
                ("irc" :follow org-irc-visit :store org-irc-store-link)
                ("info" :follow org-info-open :export org-info-export
             :store org-info-store-link)
                ("gnus" :follow org-gnus-open :store
             org-gnus-store-link)
                ("docview" :follow org-docview-open :export
             org-docview-export :store org-docview-store-link)
                ("bibtex" :follow org-bibtex-open :store
             org-bibtex-store-link)
                ("bbdb" :follow org-bbdb-open :export org-bbdb-export
             :complete org-bbdb-complete-link :store
             org-bbdb-store-link)
                ("w3m" :store org-w3m-store-link) ("file+sys")
                ("file+emacs") ("doi" :follow org--open-doi-link)
                ("elisp" :follow org--open-elisp-link)
                ("file" :complete org-file-complete-link)
                ("ftp" :follow
             (lambda (path) (browse-url (concat "ftp:" path))))
                ("help" :follow org--open-help-link)
                ("http" :follow
             (lambda (path) (browse-url (concat "http:" path))))
                ("https" :follow
             (lambda (path) (browse-url (concat "https:" path))))
                ("mailto" :follow
             (lambda (path) (browse-url (concat "mailto:" path))))
                ("news" :follow
             (lambda (path) (browse-url (concat "news:" path))))
                ("shell" :follow org--open-shell-link))
  )

             reply	other threads:[~2020-02-02 10:22 UTC|newest]

Thread overview: 13+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2020-02-02 10:22 Sébastien Miquel [this message]
2020-02-03 18:47 ` Bastien
2020-02-04  6:47   ` Sébastien Miquel
2020-02-04 16:07     ` Bastien
2020-02-09 15:26       ` Sébastien Miquel
2020-02-10  6:25         ` Bastien
2020-02-29 20:24           ` Sébastien Miquel
2020-09-04 10:31             ` Bastien
2020-10-04 21:08               ` [Patch] " Sébastien Miquel
2020-10-23 21:06                 ` Sébastien Miquel
2021-05-16 12:12                   ` Bastien
2021-05-16 17:28                     ` Sébastien Miquel
2021-05-16 19:53                       ` Bastien

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=603f9c4e-c621-7592-5b20-a7354c11d5d2@posteo.eu \
    --to=sebastien.miquel@posteo.eu \
    --cc=emacs-orgmode@gnu.org \
    --subject='Re: Bug: org-indent-region doesn'\''t restore cursor position when org-src-tab-acts-natively is t [9.1.9 (release_9.1.9-65-g5e4542 @ /usr/share/emacs/26.3/lisp/org/)]' \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Code repositories for project(s) associated with this inbox:

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).