summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2020-11-19 06:34:11 +0100
committerStefan Kangas <stefan@marxist.se>2020-11-19 06:42:25 +0100
commitcb2e34b49332cf2664de6fc4a8a79da5965298ed (patch)
treebd44038ddc9d52cb5023b2b074134e658fffe5ac /lisp
parentb6d2ea05cc886298f68e47de009fcdf1a5140c59 (diff)
downloademacs-cb2e34b49332cf2664de6fc4a8a79da5965298ed.tar.gz
Remove outdated comment about Emacs 20 from viper.el
* lisp/emulation/viper-util.el (viper-chars-in-region): Remove outdated comment.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emulation/viper-util.el8
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 83e45e1cd0c..9da493d74ba 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -249,15 +249,7 @@ Otherwise return the normal value."
(goto-char cur-pos)
result))
-;; Emacs used to count each multibyte character as several positions in the buffer,
-;; so we had to use Emacs's chars-in-region to count characters. Since 20.3,
-;; Emacs counts multibyte characters as 1 position. XEmacs has always been
-;; counting each char as just one pos. So, now we can simply subtract beg from
-;; end to determine the number of characters in a region.
(defun viper-chars-in-region (beg end &optional preserve-sign)
- ;;(let ((count (abs (if (fboundp 'chars-in-region)
- ;; (chars-in-region beg end)
- ;; (- end beg)))))
(let ((count (abs (- end beg))))
(if (and (< end beg) preserve-sign)
(- count)