Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-ex.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 6a378aca36af
children 0132846995bd
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
1876 (vip-get-ex-file) 1876 (vip-get-ex-file)
1877 (let ((end (car ex-addresses)) 1877 (let ((end (car ex-addresses))
1878 (beg (car (cdr ex-addresses))) 1878 (beg (car (cdr ex-addresses)))
1879 (orig-buf (current-buffer)) 1879 (orig-buf (current-buffer))
1880 (orig-buf-file-name (buffer-file-name)) 1880 (orig-buf-file-name (buffer-file-name))
1881 (orig-buf-name (buffer-name))
1881 (buff-changed-p (buffer-modified-p)) 1882 (buff-changed-p (buffer-modified-p))
1882 temp-buf writing-same-file region 1883 temp-buf writing-same-file region
1883 file-exists writing-whole-file) 1884 file-exists writing-whole-file)
1884 (if (> beg end) (error vip-FirstAddrExceedsSecond)) 1885 (if (> beg end) (error vip-FirstAddrExceedsSecond))
1885 (if ex-cmdfile 1886 (if ex-cmdfile
1927 (set-visited-file-name ex-file) 1928 (set-visited-file-name ex-file)
1928 (set-buffer-modified-p t) 1929 (set-buffer-modified-p t)
1929 (save-buffer)) 1930 (save-buffer))
1930 ;; restore the buffer file name 1931 ;; restore the buffer file name
1931 (set-visited-file-name orig-buf-file-name) 1932 (set-visited-file-name orig-buf-file-name)
1932 (set-buffer-modified-p buff-changed-p)) 1933 (set-buffer-modified-p buff-changed-p)
1934 ;; If the buffer wasn't visiting a file, restore buffer name.
1935 ;; Name could've been changed by packages such as uniquify.
1936 (or orig-buf-file-name
1937 (progn
1938 (unlock-buffer)
1939 (rename-buffer orig-buf-name))))
1933 (save-restriction 1940 (save-restriction
1934 (widen) 1941 (widen)
1935 (ex-write-info 1942 (ex-write-info
1936 file-exists ex-file (point-min) (point-max)))) 1943 file-exists ex-file (point-min) (point-max))))
1937 (t ; writing a region 1944 (t ; writing a region