HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Makefile.in (gl-stamp): Don't scan $(SOME_MACHINE_OBJECTS)
[bpt/emacs.git]
/
lisp
/
dos-fns.el
diff --git
a/lisp/dos-fns.el
b/lisp/dos-fns.el
index
e343446
..
c317bf8
100644
(file)
--- a/
lisp/dos-fns.el
+++ b/
lisp/dos-fns.el
@@
-1,10
+1,11
@@
;;; dos-fns.el --- MS-Dos specific functions
;;; dos-fns.el --- MS-Dos specific functions
-;; Copyright (C) 1991, 1993, 1995
, 1996, 2001, 2002, 2003, 2004, 2005,
-;;
2006, 2007, 2008, 2009, 2010
Free Software Foundation, Inc.
+;; Copyright (C) 1991, 1993, 1995
-1996, 2001-2012
+;; Free Software Foundation, Inc.
;; Maintainer: Morten Welinder <terra@diku.dk>
;; Keywords: internal
;; Maintainer: Morten Welinder <terra@diku.dk>
;; Keywords: internal
+;; Package: emacs
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
@@
-158,7
+159,7
@@
sure to obey the 8.3 limitations."
(string (copy-sequence (file-name-nondirectory filename)))
(strlen (length string))
(lastchar (aref string (1- strlen)))
(string (copy-sequence (file-name-nondirectory filename)))
(strlen (length string))
(lastchar (aref string (1- strlen)))
-
i
firstdot)
+ firstdot)
(setq firstdot (string-match "\\." string))
(cond
(firstdot
(setq firstdot (string-match "\\." string))
(cond
(firstdot
@@
-232,15
+233,15
@@
returned unaltered."
(add-hook 'before-init-hook 'dos-reevaluate-defcustoms)
(add-hook 'before-init-hook 'dos-reevaluate-defcustoms)
+(define-obsolete-variable-alias
+ 'register-name-alist 'dos-register-name-alist "24.1")
+
(defvar dos-register-name-alist
'((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5)
(cflag . 6) (flags . 7)
(al . (0 . 0)) (bl . (1 . 0)) (cl . (2 . 0)) (dl . (3 . 0))
(ah . (0 . 1)) (bh . (1 . 1)) (ch . (2 . 1)) (dh . (3 . 1))))
(defvar dos-register-name-alist
'((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5)
(cflag . 6) (flags . 7)
(al . (0 . 0)) (bl . (1 . 0)) (cl . (2 . 0)) (dl . (3 . 0))
(ah . (0 . 1)) (bh . (1 . 1)) (ch . (2 . 1)) (dh . (3 . 1))))
-(define-obsolete-variable-alias
- 'register-name-alist 'dos-register-name-alist "24.1")
-
(defun dos-make-register ()
(make-vector 8 0))
(defun dos-make-register ()
(make-vector 8 0))
@@
-312,5
+313,4
@@
that your video hardware might not support 50-line mode."
(provide 'dos-fns)
(provide 'dos-fns)
-;; arch-tag: 00b03579-8ebb-4a02-8762-5c5a929774ad
;;; dos-fns.el ends here
;;; dos-fns.el ends here