Commit ff39b9a1 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(archive-int-to-mode): Construct the string directly.

(archive-mode): Use capitalize.
(archive-unique-fname): Use make-temp-file.
parent e9726794
2001-05-09 Stefan Monnier <monnier@cs.yale.edu>
* arc-mode.el (archive-int-to-mode): Construct the string directly.
(archive-mode): Use capitalize.
(archive-unique-fname): Use make-temp-file.
2001-05-09 Gerd Moellmann <gerd@gnu.org> 2001-05-09 Gerd Moellmann <gerd@gnu.org>
   
* emacs-lisp/lisp-mode.el (lisp-interaction-mode): Doc fix. * emacs-lisp/lisp-mode.el (lisp-interaction-mode): Doc fix.
...@@ -7,17 +13,16 @@ ...@@ -7,17 +13,16 @@
* tar-mode.el (tar-extract): Pay attention to the value of * tar-mode.el (tar-extract): Pay attention to the value of
coding-system-for-read, if it is non-nil. coding-system-for-read, if it is non-nil.
   
* calendar/holidays.el (holidays): Add an autoload cookie. From * calendar/holidays.el (holidays): Add an autoload cookie.
Pavel Jan,Bm(Bk <Pavel@Janik.cz>. From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
   
2001-05-08 John Wiegley <johnw@gnu.org> 2001-05-08 John Wiegley <johnw@gnu.org>
   
* calendar/timeclock.el (timeclock-workday-remaining): Changed * calendar/timeclock.el (timeclock-workday-remaining):
logic for determining how much time is remaining. Changed logic for determining how much time is remaining.
(timeclock-workday-elapsed): Don't accept a "relative" argument (timeclock-workday-elapsed): Don't accept a "relative" argument
for the current day's elapsed time. What could that have meant? for the current day's elapsed time. What could that have meant?
(timeclock-workday-elapsed-string): No "relative" argument (timeclock-workday-elapsed-string): No "relative" argument anymore.
anymore.
(timeclock-when-to-leave): Changed logic, similarly to what was (timeclock-when-to-leave): Changed logic, similarly to what was
done for `timeclock-workday-remaining'. done for `timeclock-workday-remaining'.
(timeclock-find-discrep): Removed "today-only" argument, which had (timeclock-find-discrep): Removed "today-only" argument, which had
...@@ -41,11 +46,9 @@ ...@@ -41,11 +46,9 @@
* mail/rmail.el (rmail-insert-mime-forwarded-message-function) * mail/rmail.el (rmail-insert-mime-forwarded-message-function)
(rmail-search-mime-message-function) (rmail-search-mime-message-function)
(rmail-search-mime-header-function): New variables. (rmail-search-mime-header-function): New variables.
(rmail-expunge-and-save): Be sure to set-buffer to the Rmail (rmail-expunge-and-save): Be sure to set-buffer to the Rmail buffer.
buffer. (rmail-quit, rmail-get-new-mail): Bury `rmail-buffer' after
(rmail-quit): Bury `rmail-buffer' after `rmail-view-buffer' is `rmail-view-buffer' is hidden.
hidden.
(rmail-get-new-mail): Likewise.
(rmail-toggle-header): Likewise. If rmail-enable-mime is non-nil, (rmail-toggle-header): Likewise. If rmail-enable-mime is non-nil,
call rmai-show-mime-function. call rmai-show-mime-function.
(rmail-display-labels): If rmail-enable-mime is non-nil, update (rmail-display-labels): If rmail-enable-mime is non-nil, update
...@@ -53,23 +56,21 @@ ...@@ -53,23 +56,21 @@
(rmail-set-attribute): Be sure to set-buffer to the Rmail buffer. (rmail-set-attribute): Be sure to set-buffer to the Rmail buffer.
(rmail-show-message): Be sure to call rmail-auto-file in the Rmail (rmail-show-message): Be sure to call rmail-auto-file in the Rmail
buffer. buffer.
(rmail-next-message): Be sure to set-buffer to the Rmail buffer. (rmail-next-message, rmail-next-undeleted-message): Be sure to
(rmail-next-undeleted-message): Likewise. set-buffer to the Rmail buffer.
(rmail-message-regexp-p): If rmail-enable-mime is non-nil, call (rmail-message-regexp-p): If rmail-enable-mime is non-nil, call
rmail-search-mime-header-function. rmail-search-mime-header-function.
(rmail-search-message): New function. (rmail-search-message): New function.
(rmail-search): Call rmail-search-message to check if a message (rmail-search): Call rmail-search-message to check if a message
matches REGEXP, lastly update point after calling matches REGEXP, lastly update point after calling
rmail-show-message. rmail-show-message.
(rmail-undelete-previous-message): Be sure to set-buffer to the (rmail-undelete-previous-message, rmail-expunge-confirmed)
Rmail buffer. (rmail-only-expunge): Be sure to set-buffer to the Rmail buffer.
(rmail-expunge-confirmed): Likewise.
(rmail-only-expunge): Likewise.
(rmail-reply): If rmail-enable-mime is non-nil, don't narrow to (rmail-reply): If rmail-enable-mime is non-nil, don't narrow to
header region, refer to rmail-msgref-vector while setting the header region, refer to rmail-msgref-vector while setting the
current buffer to rmail-buffer temporarily. current buffer to rmail-buffer temporarily.
(rmail-forward): Be sure to bind forward-buffer to the Rmail (rmail-forward): Be sure to bind forward-buffer to the Rmail buffer.
buffer. If rmail-enable-mime is non-nil, call If rmail-enable-mime is non-nil, call
rmail-insert-mime-forwarded-message-function instead of inserting rmail-insert-mime-forwarded-message-function instead of inserting
forwarded message by itself. forwarded message by itself.
   
...@@ -84,8 +85,8 @@ ...@@ -84,8 +85,8 @@
   
* mail/rmailsum.el (rmail-message-subject-p): Process the result * mail/rmailsum.el (rmail-message-subject-p): Process the result
of mail-fetch-field by rmail-summary-line-decoder. of mail-fetch-field by rmail-summary-line-decoder.
(rmail-new-summary): Be sure to go to the Rmail buffer. If (rmail-new-summary): Be sure to go to the Rmail buffer.
rmail-enable-mime is non-nil, set rmail-summary-buffer of If rmail-enable-mime is non-nil, set rmail-summary-buffer of
rmail-view-buffer to nil. rmail-view-buffer to nil.
(rmail-summary-undelete): If rmail-enable-mime is non-nil, pop to (rmail-summary-undelete): If rmail-enable-mime is non-nil, pop to
rmail-view-buffer. rmail-view-buffer.
...@@ -107,11 +108,11 @@ ...@@ -107,11 +108,11 @@
   
* mail/rmailedit.el (rmail-edit-mode-hook): Add :version. * mail/rmailedit.el (rmail-edit-mode-hook): Add :version.
   
* mail/smtpmail.el (smtpmail-warn-about-unknown-extensions): Add * mail/smtpmail.el (smtpmail-warn-about-unknown-extensions):
:version. Add :version.
   
* mail/smtpmail.el (smtpmail-warn-about-unknown-extensions): New * mail/smtpmail.el (smtpmail-warn-about-unknown-extensions):
option. New option.
(smtpmail-via-smtp): Print warnings about unknown SMTP extensions (smtpmail-via-smtp): Print warnings about unknown SMTP extensions
only if smtpmail-warn-about-unknown-extensions is set. only if smtpmail-warn-about-unknown-extensions is set.
   
...@@ -121,8 +122,8 @@ ...@@ -121,8 +122,8 @@
* mail/rmailsort.el (rmail-sort-by-labels): Renamed from * mail/rmailsort.el (rmail-sort-by-labels): Renamed from
rmail-sort-by-keywords. rmail-sort-by-keywords.
   
* mail/rmailsum.el (rmail-summary-sort-by-labels): Renamed * mail/rmailsum.el (rmail-summary-sort-by-labels): Renamed from
from rmail-summary-sort-by-keywords. Doc fix. rmail-summary-sort-by-keywords. Doc fix.
(rmail-summary-mode): Doc fix. (rmail-summary-mode): Doc fix.
   
* mail/rmail.el (rmail-edit): New Custom group. * mail/rmail.el (rmail-edit): New Custom group.
...@@ -15738,8 +15739,7 @@ ...@@ -15738,8 +15739,7 @@
   
* emacs-lisp/easy-mmode.el (easy-mmode-define-keymap): Extend to * emacs-lisp/easy-mmode.el (easy-mmode-define-keymap): Extend to
allow more flexibility. allow more flexibility.
(easy-mmode-set-keymap-parents, easy-mmode-define-syntax): New (easy-mmode-set-keymap-parents, easy-mmode-define-syntax): New fns.
fns.
(easy-mmode-defmap, easy-mmode-defsyntax) (easy-mmode-defmap, easy-mmode-defsyntax)
(easy-mmode-define-derived-mode): New macros. (easy-mmode-define-derived-mode): New macros.
   
...@@ -15749,8 +15749,7 @@ ...@@ -15749,8 +15749,7 @@
   
2000-03-09 Dave Love <fx@gnu.org> 2000-03-09 Dave Love <fx@gnu.org>
   
* progmodes/fortran.el (fortran-comment-line-start): Define as * progmodes/fortran.el (fortran-comment-line-start): Define as "C".
"C".
(fortran-comment-line-start-skip): Don't match cpp stuff. (fortran-comment-line-start-skip): Don't match cpp stuff.
(font-lock-keywords): Add * to comment-chars. Grok cpp stuff. (font-lock-keywords): Add * to comment-chars. Grok cpp stuff.
(fortran-mode-map): Remove over-eager custom-menu-create for now. (fortran-mode-map): Remove over-eager custom-menu-create for now.
...@@ -15818,8 +15817,7 @@ ...@@ -15818,8 +15817,7 @@
* recentf.el (recentf-keep-non-readable-files-p): Add :set, * recentf.el (recentf-keep-non-readable-files-p): Add :set,
:require to defcustom. :require to defcustom.
   
* emacs-lisp/cl.el: Remove expt, delete, rassoc from autoloads * emacs-lisp/cl.el: Remove expt, delete, rassoc from autoloads lists.
lists.
   
* files.el (auto-mode-alist): Add configure.in. * files.el (auto-mode-alist): Add configure.in.
   
...@@ -15842,8 +15840,8 @@ ...@@ -15842,8 +15840,8 @@
   
2000-03-07 Dave Love <fx@gnu.org> 2000-03-07 Dave Love <fx@gnu.org>
   
* winner.el: Fix keywords, autoload cookies. Split * winner.el: Fix keywords, autoload cookies.
eval-when-compile form to avoid compilation failure. Split eval-when-compile form to avoid compilation failure.
   
2000-03-07 Miyashita Hisashi <himi@bird.scphys.kyoto-u.ac.jp> 2000-03-07 Miyashita Hisashi <himi@bird.scphys.kyoto-u.ac.jp>
   
...@@ -15852,12 +15850,12 @@ ...@@ -15852,12 +15850,12 @@
(make-coding-system): New argument EOL-TYPE. Pay attention to (make-coding-system): New argument EOL-TYPE. Pay attention to
coding-category property of PROPERTIES. coding-category property of PROPERTIES.
   
* international/mule-conf.el (coding-category-utf-8, * international/mule-conf.el (coding-category-utf-8)
coding-category-utf-16-be, coding-category-utf-16-le): New coding (coding-category-utf-16-be, coding-category-utf-16-le): New coding
categories. Include them in the argument for set-coding-priority. categories. Include them in the argument for set-coding-priority.
   
* international/mule-cmds.el (reset-language-environment): Include * international/mule-cmds.el (reset-language-environment):
coding-category-utf-8, coding-category-utf-16-be, and Include coding-category-utf-8, coding-category-utf-16-be, and
coding-category-utf-16-le in the argument for set-coding-priority. coding-category-utf-16-le in the argument for set-coding-priority.
(reset-language-environment): Initialize coding-category-utf-8, (reset-language-environment): Initialize coding-category-utf-8,
coding-category-utf-16-be, and coding-category-utf-16-le to nil. coding-category-utf-16-be, and coding-category-utf-16-le to nil.
...@@ -15882,15 +15880,14 @@ ...@@ -15882,15 +15880,14 @@
   
2000-03-02 Gerd Moellmann <gerd@gnu.org> 2000-03-02 Gerd Moellmann <gerd@gnu.org>
   
* time.el (display-time-mail-file): Add `none' to the list of * time.el (display-time-mail-file): Add `none' to the list of choices.
choices.
   
2000-03-01 Dave Love <fx@gnu.org> 2000-03-01 Dave Love <fx@gnu.org>
   
* help.el (help-xref-go-back): Don't try to set position. * help.el (help-xref-go-back): Don't try to set position.
   
* international/mule-diag.el (list-character-sets): Call * international/mule-diag.el (list-character-sets):
help-setup-xref. Add help-echo to xrefs. Call help-setup-xref. Add help-echo to xrefs.
(list-character-sets-1): Add help-echo to xrefs. (list-character-sets-1): Add help-echo to xrefs.
   
2000-03-02 Gerd Moellmann <gerd@gnu.org> 2000-03-02 Gerd Moellmann <gerd@gnu.org>
...@@ -15910,35 +15907,29 @@ ...@@ -15910,35 +15907,29 @@
* help.el (help-xref-button): Add help-echo arg. * help.el (help-xref-button): Add help-echo arg.
(describe-function-1, describe-variable, help-make-xrefs): Use it. (describe-function-1, describe-variable, help-make-xrefs): Use it.
   
* faces.el (list-faces-display): Supply help-echo with * faces.el (list-faces-display): Supply help-echo with help-make-xrefs.
help-make-xrefs.
   
* facemenu.el (list-text-properties-at): Set help-xref-stack to * facemenu.el (list-text-properties-at): Set help-xref-stack to nil.
nil.
   
2000-03-01 Gerd Moellmann <gerd@gnu.org> 2000-03-01 Gerd Moellmann <gerd@gnu.org>
   
* image.el (defimage): Look for image files in load-path. * image.el (defimage): Look for image files in load-path.
   
* frame.el (busy-cursor-delay-seconds): Change type to * frame.el (busy-cursor-delay-seconds): Change type to `number'.
`number'.
   
2000-03-01 David Ponce <david.ponce@wanadoo.fr> 2000-03-01 David Ponce <david.ponce@wanadoo.fr>
   
* recentf.el (recentf): Added version tag to the defgroup of * recentf.el (recentf): Added version tag to the defgroup of recentf.
recentf.
   
2000-03-01 David Ponce <david.ponce@wanadoo.fr> 2000-03-01 David Ponce <david.ponce@wanadoo.fr>
   
* recentf.el (recentf-cleanup): Changed to remove excluded file * recentf.el (recentf-cleanup): Changed to remove excluded file too.
too.
(recentf-edit-list-action): `recentf-edit-list' checkbox widget (recentf-edit-list-action): `recentf-edit-list' checkbox widget
action to select/unselect a file. action to select/unselect a file.
(recentf-edit-list): Code cleanup and improvement. (recentf-edit-list): Code cleanup and improvement.
(recentf-open-more-files-action): `recentf-open-more-files' button (recentf-open-more-files-action): `recentf-open-more-files' button
widget action to open a file. widget action to open a file.
(recentf-open-more-files): No more use standard completion but (recentf-open-more-files): No more use standard completion but widgets.
widgets.
(recentf-more-collection): Deleted. (recentf-more-collection): Deleted.
(recentf-more-history): Deleted. (recentf-more-history): Deleted.
(recentf-setup-more-completion): Deleted. (recentf-setup-more-completion): Deleted.
...@@ -15948,7 +15939,7 @@ ...@@ -15948,7 +15939,7 @@
* recentf.el (recentf-mode): No more needs that Emacs is running * recentf.el (recentf-mode): No more needs that Emacs is running
under a window-system. under a window-system.
   
1999-03-01 David Ponce <david.ponce@wanadoo.fr> 2000-03-01 David Ponce <david.ponce@wanadoo.fr>
   
* recentf.el (recentf-edit-list): New command to edit the recent * recentf.el (recentf-edit-list): New command to edit the recent
list which allow the user to remove files. list which allow the user to remove files.
...@@ -15958,7 +15949,7 @@ ...@@ -15958,7 +15949,7 @@
(recentf-make-menu-items): Updated to display a "Edit list..." (recentf-make-menu-items): Updated to display a "Edit list..."
menu item. Minor code cleanup. menu item. Minor code cleanup.
   
1999-03-01 David Ponce <david.ponce@wanadoo.fr> 2000-03-01 David Ponce <david.ponce@wanadoo.fr>
   
* recentf.el (recentf-open-more-files): New command to open files * recentf.el (recentf-open-more-files): New command to open files
that are not displayed in the menu. that are not displayed in the menu.
...@@ -15970,11 +15961,11 @@ ...@@ -15970,11 +15961,11 @@
`recentf-open-more-files'. `recentf-open-more-files'.
(recentf-make-menu-items): Updated to display a "More..." menu item. (recentf-make-menu-items): Updated to display a "More..." menu item.
   
1999-03-01 David Ponce <david.ponce@wanadoo.fr> 2000-03-01 David Ponce <david.ponce@wanadoo.fr>
   
* recentf.el (recentf-menu-action): Doc fixed. * recentf.el (recentf-menu-action): Doc fixed.
   
1999-03-01 David Ponce <david.ponce@wanadoo.fr> 2000-03-01 David Ponce <david.ponce@wanadoo.fr>
   
* recentf.el (recentf-menu-filter): Doc updated. * recentf.el (recentf-menu-filter): Doc updated.
(recentf-update-menu-hook): Allow menu filters to force menu update. (recentf-update-menu-hook): Allow menu filters to force menu update.
...@@ -15996,8 +15987,8 @@ ...@@ -15996,8 +15987,8 @@
   
2000-02-29 Kenichi Handa <handa@etl.go.jp> 2000-02-29 Kenichi Handa <handa@etl.go.jp>
   
* international/mule-diag.el (list-character-sets): Completely * international/mule-diag.el (list-character-sets):
rewritten. Completely rewritten.
(sort-listed-character-sets): New function. (sort-listed-character-sets): New function.
(list-character-sets-1): Completely rewritten. (list-character-sets-1): Completely rewritten.
(list-character-sets-2): New function. (list-character-sets-2): New function.
......
...@@ -364,24 +364,25 @@ in which case a second argument, length, should be supplied." ...@@ -364,24 +364,25 @@ in which case a second argument, length, should be supplied."
result)) result))
(defun archive-int-to-mode (mode) (defun archive-int-to-mode (mode)
"Turn an integer like 0700 (i.e., 448) into a mode string like -rwx------" "Turn an integer like 0700 (i.e., 448) into a mode string like -rwx------."
(let ((str (make-string 10 ?-))) ;; FIXME: merge with tar-grind-file-mode.
(or (zerop (logand 16384 mode)) (aset str 0 ?d)) (string
(or (zerop (logand 8192 mode)) (aset str 0 ?c)) ; completeness (if (zerop (logand 8192 mode))
(or (zerop (logand 256 mode)) (aset str 1 ?r)) (if (zerop (logand 16384 mode)) ?- ?d)
(or (zerop (logand 128 mode)) (aset str 2 ?w)) ?c) ; completeness
(or (zerop (logand 64 mode)) (aset str 3 ?x)) (if (zerop (logand 256 mode)) ?- ?r)
(or (zerop (logand 32 mode)) (aset str 4 ?r)) (if (zerop (logand 128 mode)) ?- ?w)
(or (zerop (logand 16 mode)) (aset str 5 ?w)) (if (zerop (logand 64 mode))
(or (zerop (logand 8 mode)) (aset str 6 ?x)) (if (zerop (logand 1024 mode)) ?- ?S)
(or (zerop (logand 4 mode)) (aset str 7 ?r)) (if (zerop (logand 1024 mode)) ?x ?s))
(or (zerop (logand 2 mode)) (aset str 8 ?w)) (if (zerop (logand 32 mode)) ?- ?r)
(or (zerop (logand 1 mode)) (aset str 9 ?x)) (if (zerop (logand 16 mode)) ?- ?w)
(or (zerop (logand 1024 mode)) (aset str 3 (if (zerop (logand 64 mode)) (if (zerop (logand 8 mode))
?S ?s))) (if (zerop (logand 2048 mode)) ?- ?S)
(or (zerop (logand 2048 mode)) (aset str 6 (if (zerop (logand 8 mode)) (if (zerop (logand 2048 mode)) ?x ?s))
?S ?s))) (if (zerop (logand 4 mode)) ?- ?r)
str)) (if (zerop (logand 2 mode)) ?- ?w)
(if (zerop (logand 1 mode)) ?- ?x)))
(defun archive-calc-mode (oldmode newmode &optional error) (defun archive-calc-mode (oldmode newmode &optional error)
"From the integer OLDMODE and the string NEWMODE calculate a new file mode. "From the integer OLDMODE and the string NEWMODE calculate a new file mode.
...@@ -505,8 +506,7 @@ archive. ...@@ -505,8 +506,7 @@ archive.
(funcall default-major-mode) (funcall default-major-mode)
(if (and (not force) archive-files) nil (if (and (not force) archive-files) nil
(let* ((type (archive-find-type)) (let* ((type (archive-find-type))
(typename (copy-sequence (symbol-name type)))) (typename (capitalize (symbol-name type))))
(aset typename 0 (upcase (aref typename 0)))
(kill-all-local-variables) (kill-all-local-variables)
(make-local-variable 'archive-subtype) (make-local-variable 'archive-subtype)
(setq archive-subtype type) (setq archive-subtype type)
...@@ -769,13 +769,14 @@ This function changes the set of information shown for each files." ...@@ -769,13 +769,14 @@ This function changes the set of information shown for each files."
If FNAME can be uniquely created in DIR, it is returned unaltered. If FNAME can be uniquely created in DIR, it is returned unaltered.
If FNAME is something our underlying filesystem can't grok, or if another If FNAME is something our underlying filesystem can't grok, or if another
file by that name already exists in DIR, a unique new name is generated file by that name already exists in DIR, a unique new name is generated
using `make-temp-name', and the generated name is returned." using `make-temp-file', and the generated name is returned."
(let ((fullname (expand-file-name fname dir)) (let ((fullname (expand-file-name fname dir))
(alien (string-match file-name-invalid-regexp fname))) (alien (string-match file-name-invalid-regexp fname)))
(if (or alien (file-exists-p fullname)) (if (or alien (file-exists-p fullname))
(make-temp-name (make-temp-file
(expand-file-name (expand-file-name
(if (and (eq system-type 'ms-dos) (not (msdos-long-file-names))) (if (and (fboundp 'msdos-long-file-names)
(not (msdos-long-file-names)))
"am" "am"
"arc-mode.") "arc-mode.")
dir)) dir))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment