comparison lisp/simple.el @ 844:047d37eb70d7

[xemacs-hg @ 2002-05-16 13:30:23 by ben] ui fixes for things that were bothering me bytecode.c, editfns.c, lisp.h, lread.c: Fix save-restriction to use markers rather than pseudo-markers (integers representing the amount of text on either side of the region). That way, all inserts are handled correctly, not just those inside old restriction. Add buffer argument to save_restriction_save(). process.c: Clean up very dirty and kludgy code that outputs into a buffer -- use proper unwind protects, etc. font-lock.c: Do save-restriction/widen around the function -- otherwise, incorrect results will ensue when a buffer has been narrowed before a call to e.g. `buffer-syntactic-context' -- something that happens quite often. fileio.c: Look for a handler for make-temp-name. window.c, winslots.h: Try to solve this annoying problem: have two frames displaying the buffer, in different places; in one, temporarily switch away to another buffer and then back -- and you've lost your position; it's reset to the other one in the other frame. My current solution involves window-level caches of buffers and points (also a cache for window-start); when set-window-buffer is called, it looks to see if the buffer was previously visited in the window, and if so, uses the most recent point at that time. (It's a marker, so it handles changes.) #### Note: It could be argued that doing it on the frame level would be better -- e.g. if you visit a buffer temporarily through a grep, and then go back to that buffer, you presumably want the grep's position rather than some previous position provided everything was in the same frame, even though the grep was in another window in the frame. However, doing it on the frame level fails when you have two windows on the same frame. Perhaps we keep both a window and a frame cache, and use the frame cache if there are no other windows on the frame showing the buffer, else the window's cache? This is probably something to be configurable using a specifier. Suggestions please please please? window.c: Clean up a bit code that deals with the annoyance of window-point vs. point. dialog.el: Function to ask a multiple-choice question, automatically choosing a dialog box or minibuffer representation as necessary. Generalized version of yes-or-no-p, y-or-n-p. files.el: Use get-user-response to ask "yes/no/diff" question when recovering. "diff" means that a diff is displayed between the current file and the autosave. (Converts/deconverts escape-quoted as necessary. No more complaints from you, Mr. Turnbull!) One known problem: when a dialog is used, it's modal, so you can't scroll the diff. Will fix soon. lisp-mode.el: If we're filling a string, don't treat semicolon as a comment, which would give very unfriendly results. Uses `buffer-syntactic-context'. simple.el: all changes back to the beginning. (Useful if you've saved the file in the middle of the changes.) simple.el: Add option kill-word-into-kill-ring, which controls whether words deleted with kill-word, backward-kill-word, etc. are "cut" into the kill ring, or "cleared" into nothingness. (My preference is the latter, by far. I'd almost go so far as suggesting we make it the default, as you can always select a word and then cut it if you want it cut.) menubar-items.el: Add option corresponding to kill-word-into-kill-ring.
author ben
date Thu, 16 May 2002 13:30:58 +0000
parents f46864126a0d
children 4cbfb36b35e0
comparison
equal deleted inserted replaced
843:f46864126a0d 844:047d37eb70d7
956 then call `undo-more' one or more times to undo them." 956 then call `undo-more' one or more times to undo them."
957 (or pending-undo-list 957 (or pending-undo-list
958 (error "No further undo information")) 958 (error "No further undo information"))
959 (setq pending-undo-list (primitive-undo count pending-undo-list) 959 (setq pending-undo-list (primitive-undo count pending-undo-list)
960 last-undo-buffer (current-buffer))) ; XEmacs 960 last-undo-buffer (current-buffer))) ; XEmacs
961
962 (defun undo-all-changes ()
963 "Keep undoing till the start of the undo list is reached.
964 Undoes all changes, even past a file save. Especially useful when you've
965 saved the file at some point."
966 (interactive)
967 (undo-start)
968 (while pending-undo-list (undo-more 1)))
961 969
962 ;; XEmacs 970 ;; XEmacs
963 (defun call-with-transparent-undo (fn &rest args) 971 (defun call-with-transparent-undo (fn &rest args)
964 "Apply FN to ARGS, and then undo all changes made by FN to the current 972 "Apply FN to ARGS, and then undo all changes made by FN to the current
965 buffer. The undo records are processed even if FN returns non-locally. 973 buffer. The undo records are processed even if FN returns non-locally.
2980 "Mark the text from point until encountering the end of a word. 2988 "Mark the text from point until encountering the end of a word.
2981 With optional argument COUNT, mark COUNT words." 2989 With optional argument COUNT, mark COUNT words."
2982 (interactive "p") 2990 (interactive "p")
2983 (mark-something 'mark-word 'forward-word count)) 2991 (mark-something 'mark-word 'forward-word count))
2984 2992
2993 (defcustom kill-word-into-kill-ring t
2994 "*Non-nil means `kill-word' saves word killed into kill ring.
2995 \(Normally, this also affects the clipboard.)
2996 Nil means word is just deleted, without being remembered.
2997 This also applies to `backward-kill-word' and `backward-or-forward-kill-word'."
2998 :type 'boolean
2999 :group 'editing-basics)
3000
2985 (defun kill-word (&optional count) 3001 (defun kill-word (&optional count)
2986 "Kill characters forward until encountering the end of a word. 3002 "Kill characters forward until encountering the end of a word.
2987 With optional argument COUNT, do this that many times." 3003 With optional argument COUNT, do this that many times."
2988 (interactive "*p") 3004 (interactive "*p")
2989 (kill-region (point) (save-excursion (forward-word count) (point)))) 3005 (if kill-word-into-kill-ring
3006 (kill-region (point) (save-excursion (forward-word count) (point)))
3007 (delete-region (point) (save-excursion (forward-word count) (point)))))
2990 3008
2991 (defun backward-kill-word (&optional count) 3009 (defun backward-kill-word (&optional count)
2992 "Kill characters backward until encountering the end of a word. 3010 "Kill characters backward until encountering the end of a word.
2993 With argument, do this that many times." 3011 With argument, do this that many times."
2994 (interactive "*p") 3012 (interactive "*p")