From: Juri Linkov Date: Sat, 1 May 2004 04:03:28 +0000 (+0000) Subject: Don't put `delete-selection' property on `insert-parentheses' symbol X-Git-Tag: ttn-vms-21-2-B4~6481 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8aa3c147963335f79b8c9da26f9a0f1c89fa326d;p=emacs.git Don't put `delete-selection' property on `insert-parentheses' symbol to take advantage of region handling in `insert-pair' function. Suggested by Stephan Stahl --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b3308fcf26..dbbf9c89a44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,35 @@ +2004-04-30 Juri Linkov + + * cus-edit.el (custom-mode-map): + Add key binding `C-x C-s' to `Custom-save'. + + * outline.el (outline-blank-line): New var. + (outline-next-preface, outline-show-heading) + (outline-end-of-subtree): Use it. + + * dired-aux.el (dired-touch-initial): New fun. + (dired-do-chxxx): Call it for op-symbol `touch'. + + * bindings.el (propertized-buffer-identification): + Replace `(:weight bold)' by `Buffer-menu-buffer-face'. + Add C-M-arrow keys for consistency. + + * files.el (confirm-kill-emacs): + Change group from top-level `emacs' to `convenience'. + + * emacs-lisp/lisp.el (beginning-of-defun, end-of-defun): + Push mark on the first call of successive command calls. + (insert-pair): New fun created from `insert-parentheses' with + `open' and `close' arguments added. Enclose active regions + in paired characters. Compare adjacent characters syntax with + inserted characters syntax before inserting a space. + (insert-parentheses): Call `insert-pair' with ?\( ?\). + + * delsel.el: Don't put `delete-selection' property + on `insert-parentheses' symbol to take advantage of + region handling in `insert-pair' function. + Suggested by Stephan Stahl + 2004-04-30 Kim F. Storm * emulation/cua-base.el: Add support for changing cursor types; diff --git a/lisp/delsel.el b/lisp/delsel.el index 88e23cb218e..d8e034a5f9f 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el @@ -123,8 +123,6 @@ any selection." (put 'newline 'delete-selection t) (put 'open-line 'delete-selection 'kill) -(put 'insert-parentheses 'delete-selection t) - ;; This is very useful for cancelling a selection in the minibuffer without ;; aborting the minibuffer. (defun minibuffer-keyboard-quit ()