Mercurial > emacs

comparison lisp/emulation/viper-ex.el @ 91367:c70e45a7acfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324
author Miles Bader <miles@gnu.org>
date Wed, 30 Jan 2008 07:57:28 +0000
parents 606f2d163a64 ae3fe9150b36
children
comparison
equal deleted inserted replaced
91366:86f3a8f0a3a6 91367:c70e45a7acfd
2214 (interactive) 2214 (interactive)
2215 (let ((pos1 (viper-line-pos 'start)) 2215 (let ((pos1 (viper-line-pos 'start))
2216 (pos2 (viper-line-pos 'end)) 2216 (pos2 (viper-line-pos 'end))
2217 lines file info) 2217 lines file info)
2218 (setq lines (count-lines (point-min) (viper-line-pos 'end)) 2218 (setq lines (count-lines (point-min) (viper-line-pos 'end))
2219 file (if (buffer-file-name) 2219 file (cond ((buffer-file-name)
2220 (concat (viper-abbreviate-file-name (buffer-file-name)) ":") 2220 (concat (viper-abbreviate-file-name (buffer-file-name)) ":"))
2221 (concat (buffer-name) " [Not visiting any file]:")) 2221 ((buffer-file-name (buffer-base-buffer))
2222 (concat (viper-abbreviate-file-name (buffer-file-name (buffer-base-buffer))) " (indirect buffer):"))
2223 (t (concat (buffer-name) " [Not visiting any file]:")))
2222 info (format "line=%d/%d pos=%d/%d col=%d %s" 2224 info (format "line=%d/%d pos=%d/%d col=%d %s"
2223 (if (= pos1 pos2) 2225 (if (= pos1 pos2)
2224 (1+ lines) 2226 (1+ lines)
2225 lines) 2227 lines)
2226 (count-lines (point-min) (point-max)) 2228 (count-lines (point-min) (point-max))