From 3afc21a99d3f662f24ee10212397e20c7b274bed Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 19 Mar 2008 01:05:50 +0000 Subject: [PATCH] (cua-paste): Signal an error in read-only buf. --- lisp/ChangeLog | 105 +++++++++++++++++++------------------ lisp/emulation/cua-base.el | 2 +- 2 files changed, 55 insertions(+), 52 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c2b968ea9dc..bc342ad9733 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-03-19 Stefan Monnier + + * emulation/cua-base.el (cua-paste): Signal an error in read-only buf. + 2008-03-18 Tassilo Horn * doc-view.el (doc-view-initiate-display): Use doc-view-doc-type @@ -24,14 +28,13 @@ is an alias for `identity'. (tramp-handle-write-region): Protect `last-coding-system-used' over the trailing statements. - (tramp-completion-file-name-handler-post-function): Removed. - (tramp-completion-file-name-handler): Let-bind - `directory-sep-char' instead of calling - `tramp-drop-volume-letter'. + (tramp-completion-file-name-handler-post-function): Remove. + (tramp-completion-file-name-handler): Let-bind `directory-sep-char' + instead of calling `tramp-drop-volume-letter'. - * net/tramp.el (top): - * net/tramp-uu.el (top): - * net/trampver.el (top): Move coding cookie at the end. + * net/tramp.el: + * net/tramp-uu.el: + * net/trampver.el: Move coding cookie at the end. 2008-03-17 Stefan Monnier @@ -2261,7 +2264,7 @@ * font-lock.el (font-lock-set-defaults): Unset previously set variables when needed. -2008-02-24 ,AF(Bvar Arnfj,Av(Br,Ap(B Bjarmason (tiny change) +2008-02-24 $(C(!(Bvar Arnfj$(Q)l(Br$(C)#(B Bjarmason (tiny change) * net/rcirc.el (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp. @@ -4989,7 +4992,7 @@ 2008-02-01 Dave Love * international/mule-diag.el (describe-character-set): - Fix printing dimensions. Use `,AW(B', not `x'. + Fix printing dimensions. Use `$(C!?(B', not `x'. 2008-02-01 Kenichi Handa @@ -5436,7 +5439,7 @@ 2008-02-01 Dave Love - * international/characters.el: Make ,_/(B and ,A(B a case pair. + * international/characters.el: Make $(D*s(B and $(Q)t(B a case pair. 2008-02-01 Kenichi Handa @@ -9404,7 +9407,7 @@ * progmodes/python.el (top-level): Don't require cl when compiling. -2007-12-02 Agust,Am(Bn Mart,Am(Bn +2007-12-02 Agust$(Q)c(Bn Mart$(Q)c(Bn * textmodes/flyspell.el (flyspell-large-region): Explicitly set encoding for aspell process and for communication with it. @@ -10148,7 +10151,7 @@ (x-send-client-message): * emulation/cua-base.el (x-clipboard-yank): Declare as functions. -2007-11-22 Jan Dj,Ad(Brv +2007-11-22 Jan Dj$(Q)Z(Brv * term/x-win.el (x-gtk-map-stock): Check if FILE is a string. @@ -11067,7 +11070,7 @@ * emulation/tpu-mapper.el (tpu-map-key): Remove un-needed cond branch. -2007-11-07 Johan Bockg,Ae(Brd +2007-11-07 Johan Bockg$(Q)[(Brd * eshell/esh-mode.el (eshell-output-filter): * eshell/esh-proc.el (eshell-insertion-filter, eshell-sentinel): @@ -12765,7 +12768,7 @@ * help-fns.el (describe-function-1): Don't use the advice origname if it has no function definition. -2007-10-18 Johan Bockg,Ae(Brd +2007-10-18 Johan Bockg$(Q)[(Brd * net/tramp.el (tramp-rfn-eshadow-update-overlay): Save excursion. Use `save-restriction' rather than `widen'. @@ -13479,7 +13482,7 @@ (bs--get-mode-name, bs-mode): Fix typos in docstrings. (bs--format-aux): Doc fix. -2007-10-08 Micha,Ak(Bl Cadilhac +2007-10-08 Micha$(Q)a(Bl Cadilhac * progmodes/gud.el (gud-gud-gdb-command-name): Fix typo in docstring. @@ -13525,11 +13528,11 @@ * progmodes/gud.el (gud-display-line): Find source buffer even when GUD buffer has its own frame. -2007-10-08 Jan Dj,Ad(Brv +2007-10-08 Jan Dj$(Q)Z(Brv * term/x-win.el (icon-map-list): Set to nil for 22.1 compatibility. -2007-10-08 Jan Dj,Ad(Brv +2007-10-08 Jan Dj$(Q)Z(Brv * term/x-win.el (x-gtk-stock-map): Version is 22.2. @@ -13907,7 +13910,7 @@ * emacs-lisp/copyright.el (copyright-update): Don't update if the file already uses a more recent copyright version than the "current" one. -2007-10-03 Micha,Ak(Bl Cadilhac +2007-10-03 Micha$(Q)a(Bl Cadilhac * doc-view.el (doc-view-dvi->pdf-sentinel, doc-view-reset-slice) (doc-view-insert-image): Minor aesthetical docstring changes. @@ -14012,7 +14015,7 @@ * play/zone.el (zone-hiding-modeline): Use mode-line-format. -2007-09-29 Jan Dj,Ad(Brv +2007-09-29 Jan Dj$(Q)Z(Brv * term/x-win.el (x-gtk-stock-map): Version is 22.2. @@ -14282,7 +14285,7 @@ * indent.el (indent-for-tab-command): First check if the region is active. -2007-09-24 Micha,Ak(Bl Cadilhac +2007-09-24 Micha$(Q)a(Bl Cadilhac * whitespace.el (whitespace-tickle-timer): Don't install the timer if whitespace-rescan-timer-time is 0. @@ -14402,7 +14405,7 @@ * indent.el (indent-for-tab-command): Indent the region if transient-mark-mode and the region is active. -2007-09-21 Francesco Potort,Al(B +2007-09-21 Francesco Potort$(Q)b(B * progmodes/octave-inf.el (inferior-octave-mode): Use add-hook to add inferior-octave-directory-tracker to the buffer-local value @@ -14566,7 +14569,7 @@ (browse-url-elinks-sentinel): Use browse-url-elinks-new-window. Improve error message. -2007-09-19 Micha,Ak(Bl Cadilhac +2007-09-19 Micha$(Q)a(Bl Cadilhac * net/browse-url.el (browse-url-url-encode-chars): Use the right parameter name in the function body. @@ -14602,7 +14605,7 @@ * newcomment.el (comment-add): New arg EXTRA. (comment-region-default): Pass EXTRA if not indenting lines. -2007-09-17 Micha,Ak(Bl Cadilhac +2007-09-17 Micha$(Q)a(Bl Cadilhac * net/browse-url.el (browse-url-url-encode-chars): New function. URL-encode some chars in a string. @@ -14651,7 +14654,7 @@ (move-beginning-of-line): Remove unused var `start'. (blink-matching-open): Restructure in a more functional style. -2007-09-16 Micha,Ak(Bl Cadilhac +2007-09-16 Micha$(Q)a(Bl Cadilhac * calendar/holidays.el (list-holidays): Remove the cyclic alias. @@ -14809,7 +14812,7 @@ * term/rxvt.el (rxvt-function-map): Initialize in the declaration. -2007-09-12 Micha,Ak(Bl Cadilhac +2007-09-12 Micha$(Q)a(Bl Cadilhac * net/browse-url.el (browse-url-encode-url): Fix an infinite loop. New argument `filename-p' to use one set of confusing chars or another. @@ -14852,7 +14855,7 @@ 2007-09-10 Thien-Thi Nguyen * net/browse-url.el (browse-url-encode-url): Use copy-sequence. - Reported by Jan Dj,Ad(Brv . + Reported by Jan Dj$(Q)Z(Brv . 2007-09-10 Dave Love @@ -14860,7 +14863,7 @@ Move font-lock-builtin-face down from 4 to 7 to better keep the progression of color brightness, and to better match Org-mode's faces. -2007-09-10 Micha,Ak(Bl Cadilhac +2007-09-10 Micha$(Q)a(Bl Cadilhac * progmodes/meta-mode.el (meta-font-lock-keywords) (font-lock-match-meta-declaration-item-and-skip-to-next) @@ -15028,7 +15031,7 @@ * vc-arch.el (vc-arch-checkin): Fix typo. -2007-09-07 Johan Bockg,Ae(Brd +2007-09-07 Johan Bockg$(Q)[(Brd * cus-face.el (custom-theme-set-faces): Set face attributes locally for each frame. @@ -15097,7 +15100,7 @@ * complete.el (PC-do-completion): Don't try to treat empty string as an abbreviation. -2007-09-06 Johan Bockg,Ae(Brd +2007-09-06 Johan Bockg$(Q)[(Brd * help-fns.el (describe-variable): Keep doc's text properties. @@ -15124,7 +15127,7 @@ (normal-no-mouse-startup-screen): New fn, broken out. (normal-about-screen): New function, contents all new. -2007-09-05 Micha,Ak(Bl Cadilhac +2007-09-05 Micha$(Q)a(Bl Cadilhac * emacs-lisp/rx.el (rx): Fix typo in docstring. @@ -15133,7 +15136,7 @@ * cus-edit.el (custom-buffer-create-internal): Check tool-bar-mode is bound. -2007-09-05 Johan Bockg,Ae(Brd +2007-09-05 Johan Bockg$(Q)[(Brd * emacs-lisp/advice.el (ad-make-advised-docstring): Highlight note in doc string. @@ -15205,7 +15208,7 @@ (terminal-init-xterm): Use it. Deal with delete-frame hook. Add the selected frame to xterm-modify-other-keys-terminal-list. -2007-09-02 Jan Dj,Ad(Brv +2007-09-02 Jan Dj$(Q)Z(Brv * term/x-win.el (x-gtk-stock-map): Map diropen to system-file-manager. (icon-map-list): New variable. @@ -15251,7 +15254,7 @@ * vc-svn.el (vc-svn-diff-tree): Pass a list to vc-svn-diff. -2007-08-31 Micha,Ak(Bl Cadilhac +2007-08-31 Micha$(Q)a(Bl Cadilhac * textmodes/flyspell.el (flyspell-mark-duplications-exceptions): New variable. List of exceptions for the duplicated word rule. @@ -15261,7 +15264,7 @@ * files.el (create-file-buffer): If the filename sans directory starts with spaces, remove them. -2007-08-31 Jan Dj,Ad(Brv +2007-08-31 Jan Dj$(Q)Z(Brv * term/x-win.el (x-gtk-stock-map): Add etc/images to keys. (x-gtk-map-stock): Use two directory elements when matching @@ -15368,7 +15371,7 @@ * version.el (emacs-version): Increase to 23.0.50. -2007-08-29 Jan Dj,Ad(Brv +2007-08-29 Jan Dj$(Q)Z(Brv * term/x-win.el (x-gtk-stock-map): :version changed to 23.1. @@ -15424,7 +15427,7 @@ * env.el (getenv): Pass frame to getenv-internal. -2007-08-29 K,Aa(Broly L$,1 q(Brentey +2007-08-29 K$(Q)W(Broly L$(Q*S(Brentey * version.el (emacs-version): Show if multi-tty is present. @@ -15725,7 +15728,7 @@ (display-time-world-timer-second, display-time-world-mode-map): New variables. -2007-08-28 Jan Dj,Ad(Brv +2007-08-28 Jan Dj$(Q)Z(Brv * term/x-win.el (x-gtk-stock-map): New variable. (x-gtk-map-stock): New function. @@ -15733,7 +15736,7 @@ * info.el (info-tool-bar-map): Add :rtl keyword to right/left-arrow and prev/next-node. -2007-08-28 Johan Bockg,Ae(Brd (tiny change) +2007-08-28 Johan Bockg$(Q)[(Brd (tiny change) * play/gamegrid.el (gamegrid-init): Set line-spacing to 0. @@ -15833,7 +15836,7 @@ * vc.el (vc-annotate-warp-version): Don't use previous-line. -2007-08-27 Johan Bockg,Ae(Brd +2007-08-27 Johan Bockg$(Q)[(Brd * net/browse-url.el (browse-url-emacs): New function. @@ -15841,7 +15844,7 @@ * emacs-lisp/avl-tree.el: New file. -2007-08-26 Micha,Ak(Bl Cadilhac +2007-08-26 Micha$(Q)a(Bl Cadilhac * hi-lock.el (hi-lock-unface-buffer): Show a x-menu only if the mouse was used. @@ -16289,7 +16292,7 @@ undo-list when setting syntax-table properties. (ada-after-change-function): Use ada-set-syntax-table-properties. -2007-08-18 Micha,Ak(Bl Cadilhac +2007-08-18 Micha$(Q)a(Bl Cadilhac * progmodes/meta-mode.el (meta-indent-calculate-last): Remove. (meta-indent-current-nesting): Use a computation of the nesting @@ -16342,7 +16345,7 @@ (cperl-find-pods-heres): Fix an error when typing expressions like `s{a}{b}'. -2007-08-17 Micha,Ak(Bl Cadilhac +2007-08-17 Micha$(Q)a(Bl Cadilhac * mail/emacsbug.el (report-emacs-bug): Remove the last number of `emacs-version', use the topic prefix ``version; ''. Make MS-DOS @@ -16433,7 +16436,7 @@ sloppier, for the sake of GNU Mailman. (rmail-digest-rfc1153): Initialize `result' correctly. -2007-08-15 Micha,Ak(Bl Cadilhac +2007-08-15 Micha$(Q)a(Bl Cadilhac * mail/emacsbug.el (report-emacs-bug): Put `Bug: emacs-version; ' in the mail title. Suggested by Reiner Steib. @@ -17585,7 +17588,7 @@ * net/trampver.el: Update release number. -2007-07-22 Jan Dj,Ad(Brv +2007-07-22 Jan Dj$(Q)Z(Brv * startup.el (command-line-x-option-alist): Use x-handle-no-bitmap-icon. @@ -18230,7 +18233,7 @@ * isearch.el (isearch-edit-string): Call to isearch-push-state after the search. -2007-07-09 Jan Dj,Ad(Brv +2007-07-09 Jan Dj$(Q)Z(Brv * window.el (fit-window-to-buffer): Remove setting of window-min-height to 1 as enlarge-window uses the value to resize/shrink windows other @@ -18613,7 +18616,7 @@ * font-lock.el (lisp-font-lock-keywords-2): Recognize the new \(?1:..\) syntax as well. Reported by Juri Linkov . -2007-06-28 Jan Dj,Ad(Brv +2007-06-28 Jan Dj$(Q)Z(Brv * dnd.el (dnd-get-local-file-name): Set fixcase to t in call to replace-regexp-in-string. @@ -19226,7 +19229,7 @@ * diff-mode.el (diff-font-lock-keywords): Fix M. Kifer's last change. -2007-06-13 Johan Bockg,Ae(Brd (tiny change) +2007-06-13 Johan Bockg$(Q)[(Brd (tiny change) * term/xterm.el (terminal-init-xterm): Escape parens in character constants. @@ -19405,7 +19408,7 @@ * emacs-lisp/bytecomp.el (byte-compile-find-cl-functions): Match against file-name-nondirectory. Fix text on user customization variables. - Reported by Johan Bockg,Ae(Brd . + Reported by Johan Bockg$(Q)[(Brd . 2007-06-09 Alfred M. Szmidt (tiny change) @@ -19813,7 +19816,7 @@ * files.el (set-auto-mode): Doc fix. -2007-05-22 Jan Dj,Ad(Brv +2007-05-22 Jan Dj$(Q)Z(Brv * help-fns.el (find-source-lisp-file): New function. (describe-function-1): Use find-source-lisp-file to find source @@ -20047,7 +20050,7 @@ * dabbrev.el (dabbrev-eliminate-newlines): Renamed from dabbrev--eliminate-newlines. All uses changed. -2007-05-10 Micha,Ak(Bl Cadilhac +2007-05-10 Micha$(Q)a(Bl Cadilhac * man.el (Man-next-section): Don't consider the last line of the page as being part of any section. @@ -20230,7 +20233,7 @@ * image-dired.el (image-dired-display-image): Derive image-type from filename rather than assuming jpeg, in case no resizing was needed. -2007-04-25 Johan Bockg,Ae(Brd +2007-04-25 Johan Bockg$(Q)[(Brd * custom.el (defface): Doc fix. diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 992d0afd914..7728bbe220b 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -909,7 +909,7 @@ If global mark is active, copy from register or one character." (cua--insert-at-global-mark (filter-buffer-substring (point) (+ (point) count))) (forward-char count)))) (buffer-read-only - (message "Cannot paste into a read-only buffer")) + (error "Cannot paste into a read-only buffer")) (t ;; Must save register here, since delete may override reg 0. (if mark-active -- 2.39.2