diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2020-05-08 22:14:03 +0200 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2020-05-14 18:43:15 +0200 |
| commit | 3a284e578625e617fdc6085ae11da2b4e41bb59b (patch) | |
| tree | ff6c8708cc3cd9d892d2433be5adbf9156584157 /test/lisp/tar-mode-tests.el | |
| parent | 4af8b17149ee04655f038229c6103963f247ff87 (diff) | |
| download | emacs-3a284e578625e617fdc6085ae11da2b4e41bb59b.tar.gz emacs-3a284e578625e617fdc6085ae11da2b4e41bb59b.tar.bz2 emacs-3a284e578625e617fdc6085ae11da2b4e41bb59b.zip | |
Combine archive-int-to-mode and tar-grind-file-mode
Add a new function, file-modes-number-to-symbolic.
Make archive-int-to-mode and obsolete alias of it; use it
to define tar-grind-file-mode (Bug#27952).
* lisp/files.el (file-modes-number-to-symbolic): New defun.
* lisp/arc-mode.el (archive-int-to-mode): Make it an obsolete alias.
* lisp/tar-mode.el (tar-grind-file-mode):
Use file-modes-number-to-symbolic.
* test/lisp/arc-mode-tests.el (arc-mode-test-archive-int-to-mode)
* test/lisp/tar-mode-tests.el (tar-mode-test-tar-grind-file-mode):
Update test.
* test/lisp/files-tests.el (files-tests-file-modes-symbolic-to-number)
(files-tests-file-modes-number-to-symbolic): New tests.
* doc/lispref/files.texi (Changing Files): Document the new funtion.
* etc/NEWS (Lisp Changes in Emacs 28.1): Announce it.
Diffstat (limited to 'test/lisp/tar-mode-tests.el')
| -rw-r--r-- | test/lisp/tar-mode-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/lisp/tar-mode-tests.el b/test/lisp/tar-mode-tests.el index bc41b863da7..f05389df60f 100644 --- a/test/lisp/tar-mode-tests.el +++ b/test/lisp/tar-mode-tests.el @@ -29,7 +29,8 @@ (cons 420 "rw-r--r--") (cons 292 "r--r--r--") (cons 512 "--------T") - (cons 1024 "-----S---")))) + (cons 1024 "-----S---") + (cons 2048 "--S------")))) (dolist (x alist) (should (equal (cdr x) (tar-grind-file-mode (car x))))))) |