diff options
author | Pierre Courtieu <courtieu@lri.fr> | 2005-03-10 16:26:25 +0000 |
---|---|---|
committer | Pierre Courtieu <courtieu@lri.fr> | 2005-03-10 16:26:25 +0000 |
commit | f6f4e5b53c5ea80deeab607df44b368dca1cbde8 (patch) | |
tree | 26d58cbe19d5f5f2df40ed2cd7e8839e0cff2fd0 /lib/holes.el | |
parent | 36ca763e45d4b4489983cd820b28a5d36cea04de (diff) |
debugging and cleaning of holes.el.
Diffstat (limited to 'lib/holes.el')
-rw-r--r-- | lib/holes.el | 24 |
1 files changed, 5 insertions, 19 deletions
diff --git a/lib/holes.el b/lib/holes.el index 1699cf9e..62956b89 100644 --- a/lib/holes.el +++ b/lib/holes.el @@ -493,19 +493,6 @@ Default pos = point and buffer = current." ;;) - - -(defun holes-replace-segment (start end str &optional BUFFER) - "Erase chars between START and END, and replace by STR. -Shift markers. optionnal argument BUFFER specifies in which buffer." - (interactive) - (save-excursion - (set-buffer (or BUFFER (current-buffer))) - (delete-region start end) - (goto-char start) - (insert-string str) - ) - ) (defun holes-replace-segment (start end str &optional buffer) "Erase chars between START and END, and replace them with STR." (with-current-buffer (or buffer (current-buffer)) @@ -516,7 +503,6 @@ Shift markers. optionnal argument BUFFER specifies in which buffer." (delete-region start end))) - (defun holes-replace (str &optional thehole) "Replace the current hole by STR, replace THEHOLE instead if given. Do not use this, it breaks the right colorization of the active @@ -594,10 +580,10 @@ Sets `holes-active-hole' to the next hole if it exists." ;; mouse stuff, I want to make something close to `mouse-track-insert' -;; of Xemacs, but with modifier ctrl-meta and ctrl-meta-shift +;; of XEmacs, but with modifier ctrl-meta and ctrl-meta-shift -;;; Emacs and Xemacs have different ways of dealing with mouse -;; selection, but `mouse-track'(Xemacs) mouse-drag-region(Emacs) +;;; Emacs and XEmacs have different ways of dealing with mouse +;; selection, but `mouse-track'(XEmacs) mouse-drag-region(Emacs) ;; have nearly the same meaning for me. So I define this ;; track-mouse-selection. @@ -867,8 +853,8 @@ turn it off." (holes-mode (add-hook 'skeleton-end-hook 'holes-skeleton-end-hook nil t)) (t - (remove-hook 'skeleton-end-hook 'holes-skeleton-end-hook t)) - (run-hooks 'holes-mode-hook))) + (remove-hook 'skeleton-end-hook 'holes-skeleton-end-hook t))) + (run-hooks 'holes-mode-hook)) (or (assq 'holes-mode minor-mode-alist) (setq minor-mode-alist |