diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-10-29 22:45:53 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-10-29 22:45:53 -0400 |
| commit | ae4002ce294f21a82979edacef39f82d8e4cd1cc (patch) | |
| tree | d0f2e23db27b13aeb9066c534661f04032fb36d8 /lisp/simple.el | |
| parent | 53b39e8977941c6b60deeeca3c0e54da9ec7961a (diff) | |
| download | emacs-ae4002ce294f21a82979edacef39f82d8e4cd1cc.tar.gz | |
Cleanup namespace of dos-w32.el.
* lisp/dos-w32.el (minibuffer-history-case-insensitive-variables)
(path-separator, null-device, buffer-file-coding-system)
(lpr-headers-switches): Check system-type before modifying them.
(find-buffer-file-type-coding-system): Mark obsolete.
(w32-find-file-not-found-set-buffer-file-coding-system): Rename from
find-file-not-found-set-buffer-file-coding-system.
(w32-untranslated-filesystem-list, w32-untranslated-canonical-name):
(w32-add-untranslated-filesystem, w32-remove-untranslated-filesystem)
(w32-direct-print-region-use-command-dot-com, w32-untranslated-file-p):
(w32-direct-print-region-helper, w32-direct-print-region-function)
(w32-direct-ps-print-region-function): Rename by adding a "w32-" prefix.
* lisp/startup.el (normal-top-level-add-subdirs-to-load-path):
* lisp/ps-print.el (ps-print-region-function):
* lisp/lpr.el (print-region-function): Use new name.
* lisp/simple.el (copy-region-as-kill): Fix call to region-extract-function.
* lisp/emacs-lisp/bytecomp.el (byte-defop-compiler): Add new `2-and' handler.
(byte-compile-and-folded): New function.
(=, <, >, <=, >=): Use it.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 49108025a40..ca2088eeb24 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3676,7 +3676,7 @@ some text between BEG and END, but we're copying the region. This command's old key binding has been given to `kill-ring-save'." (interactive "r\np") (let ((str (if region - (funcall region-extract-function) + (funcall region-extract-function nil) (filter-buffer-substring beg end)))) (if (eq last-command 'kill-region) (kill-append str (< end beg)) |