CVS update by viteno xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 06/05/31 23:51:10
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1548 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1547
retrieving revision 1.1548
diff -u -p -r1.1547 -r1.1548
--- version.sh 2006/05/30 21:51:42 1.1547
+++ version.sh 2006/05/31 21:51:09 1.1548
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20060530)"
+xemacs_extra_name="(+CVS-20060531)"
xemacs_release_date="2006-05-16"
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 06/05/30 23:51:43
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1547 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1546
retrieving revision 1.1547
diff -u -p -r1.1546 -r1.1547
--- version.sh 2006/05/29 21:51:14 1.1546
+++ version.sh 2006/05/30 21:51:42 1.1547
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20060529)"
+xemacs_extra_name="(+CVS-20060530)"
xemacs_release_date="2006-05-16"
- 1 participants
- 0 comments
CVS update by stephent xemacs/src ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: stephent
Date: 06/05/30 08:21:35
Modified: xemacs/src objects-x.c ChangeLog
Log:
Preferred fix for dangling declaration. <8764jo59cu.fsf(a)tleepslib.sk.tsukuba.ac.jp>
Revision Changes Path
1.42 +31 -26 XEmacs/xemacs/src/objects-x.c
Index: objects-x.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-x.c,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -p -r1.41 -r1.42
--- objects-x.c 2006/05/24 16:30:32 1.41
+++ objects-x.c 2006/05/30 06:21:31 1.42
＠＠ -1215,7 +1215,6 ＠＠ x_find_charset_font (Lisp_Object device,
stderr_out ("Failed fontconfig initialization\n");
else
{
- struct charset_reporter *cr;
FcPattern *fontxft; /* long-lived, freed at end of this block */
FcResult fcresult;
FcConfig *fcc;
＠＠ -1303,34 +1302,40 ＠＠ x_find_charset_font (Lisp_Object device,
Optimization: cache the generated FcCharSet in the Mule charset.
Don't forget to destroy it if the Mule charset gets deallocated. */
- for (cr = charset_table;
- cr->charset && !EQ (*(cr->charset), charset);
- cr++)
- ;
-
- if (cr->rfc3066)
- {
- DECLARE_DEBUG_FONTNAME (name);
- CHECKING_LANG (0, eidata(name), cr->language);
- lang = cr->rfc3066;
- }
- else if (cr->charset)
- {
- /* what the hey, build 'em on the fly */
- /* #### in the case of error this could return NULL! */
- fccs = mule_to_fc_charset (charset);
- lang = XSTRING_DATA (XSYMBOL (XCHARSET_NAME (charset))-> name);
- }
- else
- {
- /* OK, we fell off the end of the table */
- warn_when_safe_lispobj (intern ("xft"), intern ("alert"),
- list2 (build_string ("unchecked charset"),
- charset));
+ {
+ /* This block possibly should be a function, but it generates
+ multiple values. I find the "pass an address to return the
+ value in" idiom opaque, so prefer a block. */
+ struct charset_reporter *cr;
+ for (cr = charset_table;
+ cr->charset && !EQ (*(cr->charset), charset);
+ cr++)
+ ;
+
+ if (cr->rfc3066)
+ {
+ DECLARE_DEBUG_FONTNAME (name);
+ CHECKING_LANG (0, eidata(name), cr->language);
+ lang = cr->rfc3066;
+ }
+ else if (cr->charset)
+ {
+ /* what the hey, build 'em on the fly */
+ /* #### in the case of error this could return NULL! */
+ fccs = mule_to_fc_charset (charset);
+ lang = XSTRING_DATA (XSYMBOL (XCHARSET_NAME (charset))-> name);
+ }
+ else
+ {
+ /* OK, we fell off the end of the table */
+ warn_when_safe_lispobj (intern ("xft"), intern ("alert"),
+ list2 (build_string ("unchecked charset"),
+ charset));
+ }
/* default to "en"
#### THIS IS WRONG, WRONG, WRONG!!
It is why we never fall through to XLFD-checking. */
- }
+ }
ASSERT_ASCTEXT_ASCII(lang);
1.970 +5 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.969
retrieving revision 1.970
diff -u -p -r1.969 -r1.970
--- ChangeLog 2006/05/25 08:04:56 1.969
+++ ChangeLog 2006/05/30 06:21:31 1.970
＠＠ -1,3 +1,8 ＠＠
+2006-05-25 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * objects-x.c (x_find_charset_font): Keep local names local; wrap
+ the spurious declaration in a block, don't move it.
+
2006-05-25 Aidan Kehoe <kehoea(a)parhasard.net>
* file-coding.c (output_bytes_in_ascii_and_hex):
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 06/05/29 23:51:15
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1546 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1545
retrieving revision 1.1546
diff -u -p -r1.1545 -r1.1546
--- version.sh 2006/05/28 21:50:46 1.1545
+++ version.sh 2006/05/29 21:51:14 1.1546
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20060528)"
+xemacs_extra_name="(+CVS-20060529)"
xemacs_release_date="2006-05-16"
- 1 participants
- 0 comments
CVS update by james packages/xemacs-packages/xemacs-base, shell.el ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: james
Date: 06/05/29 23:47:01
Modified: packages/xemacs-packages/xemacs-base ChangeLog comint.el
shell.el
Log:
Fix bugs identified by Ilya Golubev and do more syncing with Emacs.
<m364josdx2.fsf(a)jerrypc.cs.usu.edu>
Revision Changes Path
1.182 +7 -0 XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog,v
retrieving revision 1.181
retrieving revision 1.182
diff -u -p -r1.181 -r1.182
--- ChangeLog 2006/05/25 08:47:59 1.181
+++ ChangeLog 2006/05/29 21:47:00 1.182
＠＠ -1,3 +1,10 ＠＠
+2006-05-29 Jerry James <james(a)xemacs.org>
+
+ * comint.el: Fix bug in comint-arguments that signaled instead of
+ returning a value.
+ * comint.el: Sync with very recent Emacs CVS activity.
+ * shell.el: Ditto.
+
2006-05-25 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 2.04 released.
1.15 +24 -28 XEmacs/packages/xemacs-packages/xemacs-base/comint.el
Index: comint.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/comint.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -p -r1.14 -r1.15
--- comint.el 2006/05/25 02:49:47 1.14
+++ comint.el 2006/05/29 21:47:01 1.15
＠＠ -25,7 +25,7 ＠＠
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
-;;; Synched up with: FSF 22.0.50
+;;; Synched up with: FSF 22.0.50 (CVS revision 1.345)
;;; Commentary:
＠＠ -452,6 +452,8 ＠＠ respect field boundaries in a natural wa
;; XEmacs change: we don't need the autoload here since we never used
;; comint-use-prompt-regexp-instead-of-fields
+(define-obsolete-variable-alias 'comint-use-prompt-regexp-instead-of-fields
+ 'comint-use-prompt-regexp)
(defcustom comint-mode-hook nil
"Hook run upon entry to `comint-mode'.
＠＠ -566,9 +568,8 ＠＠ The command \\[comint-accumulate] sets t
["Send EOF" comint-send-eof t]
))
-
;;;###autoload
-(defun comint-mode ()
+(define-derived-mode comint-mode fundamental-mode "Comint"
"Major mode for interacting with an inferior interpreter.
Interpreter name is same as buffer name, sans the asterisks.
Return at end of buffer sends line as input.
＠＠ -604,13 +605,7 ＠＠ to continue it.
\\{comint-mode-map}
Entry to this mode runs the hooks on `comint-mode-hook'."
- (interactive)
- ;; Do not remove this. All major modes must do this.
- (kill-all-local-variables)
- (setq major-mode 'comint-mode)
- (setq mode-name "Comint")
(setq mode-line-process '(":%s"))
- (use-local-map comint-mode-map)
(set (make-local-variable 'comint-last-input-start) (point-min-marker))
(set (make-local-variable 'comint-last-input-end) (point-min-marker))
(set (make-local-variable 'comint-last-output-start) (make-marker))
＠＠ -653,7 +648,8 ＠＠ Entry to this mode runs the hooks on `co
(make-local-variable 'comint-file-name-chars)
(make-local-variable 'comint-file-name-quote-list)
(set (make-local-variable 'comint-accum-marker) (make-marker))
- (add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer nil t)
+ ;; XEmacs change: font-lock-unfontify-buffer may not be loaded
+ ;(add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer nil t)
;; This behavior is not useful in comint buffers, and is annoying
(set (make-local-variable 'next-line-add-newlines) nil)
(unless comint-1-menubar-menu
＠＠ -1490,7 +1486,7 ＠＠ Argument 0 is the command name."
(nconc (comint-delim-arg str) args))))
(setq count (length args))
(let ((n (or nth (1- count)))
- (m (if mth (1- (- count mth)) 0)))
+ (m (if mth (max 0 (1- (- count mth))) 0)))
(mapconcat #'identity (nthcdr n (nreverse (nthcdr m args))) " "))))
＠＠ -2008,17 +2004,6 ＠＠ This function could be on `comint-output
(goto-char (point-max))
(recenter -1))
-(defun comint-copy-old-input ()
- "Insert after prompt old input at point as new input to be edited.
-Calls `comint-get-old-input' to get old input."
- (interactive)
- (let ((input (funcall comint-get-old-input))
- (process (get-buffer-process (current-buffer))))
- (if (not process)
- (error "Current buffer has no process")
- (goto-char (process-mark process))
- (insert input))))
-
(defun comint-get-old-input-default ()
"Default for `comint-get-old-input'.
If `comint-use-prompt-regexp' is nil, then either
＠＠ -2033,6 +2018,17 ＠＠ the current line with any initial string
(comint-bol)
(buffer-substring-no-properties (point) (point-at-eol)))))
+(defun comint-copy-old-input ()
+ "Insert after prompt old input at point as new input to be edited.
+Calls `comint-get-old-input' to get old input."
+ (interactive)
+ (let ((input (funcall comint-get-old-input))
+ (process (get-buffer-process (current-buffer))))
+ (if (not process)
+ (error "Current buffer has no process")
+ (goto-char (process-mark process))
+ (insert input))))
+
(defun comint-skip-prompt ()
"Skip past the text matching regexp `comint-prompt-regexp'.
If this takes us past the end of the current line, don't skip at all."
＠＠ -2486,19 +2482,19 ＠＠ preceding newline is removed."
(when (eq (get-text-property (1- pt) 'read-only) 'fence)
(remove-text-properties (1- pt) pt '(read-only nil)))))))
-(defun comint-kill-whole-line (&optional arg)
+(defun comint-kill-whole-line (&optional count)
"Kill current line, ignoring read-only and field properties.
-With prefix arg, kill that many lines starting from the current line.
-If arg is negative, kill backward. Also kill the preceding newline,
+With prefix arg COUNT, kill that many lines starting from the current line.
+If COUNT is negative, kill backward. Also kill the preceding newline,
instead of the trailing one. \(This is meant to make \\[repeat] work well
with negative arguments.)
-If arg is zero, kill current line but exclude the trailing newline.
+If COUNT is zero, kill current line but exclude the trailing newline.
The read-only status of newlines is updated with `comint-update-fence',
if necessary."
(interactive "p")
(let ((inhibit-read-only t) (inhibit-field-text-motion t))
- (kill-entire-line arg)
- (when (>= arg 0) (comint-update-fence))))
+ (kill-entire-line count)
+ (when (>= count 0) (comint-update-fence))))
(defun comint-kill-region (beg end &optional yank-handler)
"Like `kill-region', but ignores read-only properties, if safe.
1.15 +90 -91 XEmacs/packages/xemacs-packages/xemacs-base/shell.el
Index: shell.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/shell.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -p -r1.14 -r1.15
--- shell.el 2006/05/25 02:49:48 1.14
+++ shell.el 2006/05/29 21:47:01 1.15
＠＠ -25,7 +25,7 ＠＠
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
-;;; Synched up with: FSF 22.0.50
+;;; Synched up with: FSF 22.0.50 (CVS revision 1.137)
;;; Commentary:
＠＠ -108,6 +108,10 ＠＠
(require 'comint)
+;; XEmacs addition: make the byte compiler be quiet
+(eval-when-compile
+ (require 'font-lock))
+
;;; Customization and Buffer Variables
(defgroup shell nil
＠＠ -153,7 +157,7 ＠＠ This is a fine thing to set in your `use
:group 'shell)
(defcustom shell-completion-fignore nil
- "*List of suffixes to be disregarded during file/command completion.
+ "List of suffixes to be disregarded during file/command completion.
This variable is used to initialize `comint-completion-fignore' in the shell
buffer. The default is nil, for compatibility with most shells.
Some people like (\"~\" \"#\" \"%\").
＠＠ -204,19 +208,19 ＠＠ shell buffer.
This is a fine thing to set in your `user-init-file'.")
(defcustom shell-command-regexp "[^;&|\n]+"
- "*Regexp to match a single command within a pipeline.
+ "Regexp to match a single command within a pipeline.
This is used for directory tracking and does not do a perfect job."
:type 'regexp
:group 'shell)
(defcustom shell-command-separator-regexp "[;&|\n \t]*"
- "*Regexp to match a single command within a pipeline.
+ "Regexp to match a single command within a pipeline.
This is used for directory tracking and does not do a perfect job."
:type 'regexp
:group 'shell)
(defcustom shell-completion-execonly t
- "*If non-nil, use executable files only for completion candidates.
+ "If non-nil, use executable files only for completion candidates.
This mirrors the optional behavior of tcsh.
Detecting executability of files may slow command completion considerably."
＠＠ -224,35 +228,35 ＠＠ Detecting executability of files may slo
:group 'shell)
(defcustom shell-popd-regexp "popd"
- "*Regexp to match subshell commands equivalent to popd."
+ "Regexp to match subshell commands equivalent to popd."
:type 'regexp
:group 'shell-directories)
(defcustom shell-pushd-regexp "pushd"
- "*Regexp to match subshell commands equivalent to pushd."
+ "Regexp to match subshell commands equivalent to pushd."
:type 'regexp
:group 'shell-directories)
(defcustom shell-pushd-tohome nil
- "*If non-nil, make pushd with no arg behave as \"pushd ~\" (like cd).
+ "If non-nil, make pushd with no arg behave as \"pushd ~\" (like cd).
This mirrors the optional behavior of tcsh."
:type 'boolean
:group 'shell-directories)
(defcustom shell-pushd-dextract nil
- "*If non-nil, make \"pushd +n\" pop the nth dir to the stack top.
+ "If non-nil, make \"pushd +n\" pop the nth dir to the stack top.
This mirrors the optional behavior of tcsh."
:type 'boolean
:group 'shell-directories)
(defcustom shell-pushd-dunique nil
- "*If non-nil, make pushd only add unique directories to the stack.
+ "If non-nil, make pushd only add unique directories to the stack.
This mirrors the optional behavior of tcsh."
:type 'boolean
:group 'shell-directories)
(defcustom shell-cd-regexp "cd"
- "*Regexp to match subshell commands equivalent to cd."
+ "Regexp to match subshell commands equivalent to cd."
:type 'regexp
:group 'shell-directories)
＠＠ -261,20 +265,20 ＠＠ This mirrors the optional behavior of tc
; NetWare allows the five chars between upper and lower alphabetics.
"[]a-zA-Z^_`\\[\\\\]:"
nil)
- "*If non-nil, is regexp used to track drive changes."
+ "If non-nil, is regexp used to track drive changes."
:type '(choice regexp
(const nil))
:group 'shell-directories)
(defcustom shell-dirtrack-verbose t
- "*If non-nil, show the directory stack following directory change.
+ "If non-nil, show the directory stack following directory change.
This is effective only if directory tracking is enabled."
:type 'boolean
:group 'shell-directories)
;; XEmacs addition
(defcustom shell-dirtrack-other-regexp nil
- "*Regexp to match commands for which we call `shell-dirtrack-process-other-func'."
+ "Regexp to match commands for which we call `shell-dirtrack-process-other-func'."
:type '(choice regexp
(const nil))
:group 'shell-directories)
＠＠ -283,7 +287,7 ＠＠ This is effective only if directory trac
;; ＠todo make this a full blown hook? ?A hook which stops when a func
;; returns t? Or nil?
(defcustom shell-dirtrack-process-other-func nil
- "*Function to allow external processing of directory changing commands
+ "Function to allow external processing of directory changing commands
which match `shell-dirtrack-other-regexp'. This allows users to process
arbitrary directory changing commands. This function takes two arguments:
CMD - the first word (cmd part) of the current shell command line.
＠＠ -295,7 +299,7 ＠＠ pushd-like command which expands ARG1 fr
:group 'shell-directories)
(defcustom explicit-shell-file-name nil
- "*If non-nil, is file name to use for explicitly requested inferior shell."
+ "If non-nil, is file name to use for explicitly requested inferior shell."
:type '(choice (const :tag "None" nil) file)
:group 'shell)
＠＠ -305,7 +309,7 ＠＠ pushd-like command which expands ARG1 fr
;; than us about what terminal modes to use.
'("-i" "-T")
'("-i"))
- "*Args passed to inferior shell by M-x shell, if the shell is csh.
+ "Args passed to inferior shell by \\[shell], if the shell is csh.
Value is a list of strings, which may be nil."
:type '(repeat (string :tag "Argument"))
:group 'shell)
＠＠ -323,39 +327,39 ＠＠ Value is a list of strings, which may be
(shell-command-to-string (concat prog " --noediting"))))
'("-i")
'("--noediting" "-i")))
- "*Args passed to inferior shell by M-x shell, if the shell is bash.
+ "Args passed to inferior shell by \\[shell], if the shell is bash.
Value is a list of strings, which may be nil."
:type '(repeat (string :tag "Argument"))
:group 'shell)
;; XEmacs addition: allow the user to customize args for some shells
(defcustom explicit-ash-args '("-i")
- "*List of arguments to pass to \"ash\" on startup in `shell-mode'."
+ "List of arguments to pass to \"ash\" on startup in `shell-mode'."
:type '(repeat (string :tag "Argument"))
:group 'shell)
(defcustom explicit-ksh-args '("-i")
- "*List of arguments to pass to \"ksh\" on startup in `shell-mode'."
+ "List of arguments to pass to \"ksh\" on startup in `shell-mode'."
:type '(repeat (string :tag "Argument"))
:group 'shell)
(defcustom explicit-pdksh-args '("-i")
- "*List of arguments to pass to \"pdksh\" on startup in `shell-mode'."
+ "List of arguments to pass to \"pdksh\" on startup in `shell-mode'."
:type '(repeat (string :tag "Argument"))
:group 'shell)
(defcustom explicit-tcsh-args '("-i")
- "*List of arguments to pass to \"tcsh\" on startup in `shell-mode'."
+ "List of arguments to pass to \"tcsh\" on startup in `shell-mode'."
:type '(repeat (string :tag "Argument"))
:group 'shell)
(defcustom explicit-zsh-args '("-i")
- "*List of arguments to pass to \"zsh\" on startup in `shell-mode'."
+ "List of arguments to pass to \"zsh\" on startup in `shell-mode'."
:type '(repeat (string :tag "Argument"))
:group 'shell)
(defcustom shell-input-autoexpand 'history
- "*If non-nil, expand input command history references on completion.
+ "If non-nil, expand input command history references on completion.
This mirrors the optional behavior of tcsh (its autoexpand and histlit).
If the value is `input', then the expansion is seen on input.
＠＠ -386,7 +390,7 ＠＠ Thus, this does not include the shell's
(defvar shell-mode-map nil)
(if (not shell-mode-map)
- (let ((map (make-keymap 'shell-mode-map)))
+ (let ((map (make-sparse-keymap 'shell-mode-map)))
(set-keymap-parents map (list comint-mode-map))
(define-key map "\C-c\C-f" 'shell-forward-command)
(define-key map "\C-c\C-b" 'shell-backward-command)
＠＠ -540,13 +544,11 ＠＠ buffer."
(setq shell-dirstack nil)
(make-local-variable 'shell-last-dir)
(setq shell-last-dir nil)
- (make-local-variable 'shell-dirtrackp)
- (setq shell-dirtrackp t)
- (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t)
(setq comint-input-autoexpand shell-input-autoexpand)
;; This is not really correct, since the shell buffer does not really
;; edit this directory. But it is useful in the buffer list and menus.
(make-local-variable 'list-buffers-directory)
+ (shell-dirtrack-mode 1)
(setq list-buffers-directory (expand-file-name default-directory))
;; shell-dependent assignments.
(when (ring-empty-p comint-input-ring)
＠＠ -577,7 +579,6 ＠＠ buffer."
;; point in cluttering the code to support versions of bash that are
;; probably nowhere in use. --JJ
(comint-read-input-ring t)
- (shell-dirstack-message) ; XEmacs addition
))
(defun shell-write-history-on-exit (process event)
＠＠ -647,12 +648,11 ＠＠ Otherwise, one argument `-i' is passed t
(xargs-name (intern-soft (concat "explicit-" name "-args"))))
(if (not (file-exists-p startfile))
(setq startfile (concat "~/.emacs.d/.emacs_" name)))
- (setq buffer (set-buffer
- (apply #'make-comint-in-buffer "shell" buffer prog
- (if (file-exists-p startfile) startfile)
- (if (and xargs-name (boundp xargs-name))
- (symbol-value xargs-name)
- '("-i")))))
+ (apply #'make-comint-in-buffer "shell" buffer prog
+ (if (file-exists-p startfile) startfile)
+ (if (and xargs-name (boundp xargs-name))
+ (symbol-value xargs-name)
+ '("-i")))
(shell-mode)))
buffer)
＠＠ -660,44 +660,44 ＠＠ Otherwise, one argument `-i' is passed t
;;;###autoload (add-hook 'same-window-buffer-names "*shell*")
;;; Directory tracking
-;;;
-;;; This code provides the shell mode input sentinel
-;;; SHELL-DIRECTORY-TRACKER
-;;; that tracks cd, pushd, and popd commands issued to the shell, and
-;;; changes the current directory of the shell buffer accordingly.
-;;;
-;;; This is basically a fragile hack, although it's more accurate than
-;;; the version in Emacs 18's shell.el. It has the following failings:
-;;; 1. It doesn't know about the cdpath shell variable.
-;;; 2. It cannot infallibly deal with command sequences, though it does well
-;;; with these and with ignoring commands forked in another shell with ()s.
-;;; 3. More generally, any complex command is going to throw it. Otherwise,
-;;; you'd have to build an entire shell interpreter in Emacs Lisp. Failing
-;;; that, there's no way to catch shell commands where cd's are buried
-;;; inside conditional expressions, aliases, and so forth.
-;;;
-;;; The whole approach is a crock. Shell aliases mess it up. File sourcing
-;;; messes it up. You run other processes under the shell; these each have
-;;; separate working directories, and some have commands for manipulating
-;;; their w.d.'s (e.g., the lcd command in ftp). Some of these programs have
-;;; commands that do *not* affect the current w.d. at all, but look like they
-;;; do (e.g., the cd command in ftp). In shells that allow you job
-;;; control, you can switch between jobs, all having different w.d.'s. So
-;;; simply saying %3 can shift your w.d..
-;;;
-;;; The solution is to relax, not stress out about it, and settle for
-;;; a hack that works pretty well in typical circumstances. Remember
-;;; that a half-assed solution is more in keeping with the spirit of Unix,
-;;; anyway. Blech.
-;;;
-;;; One good hack not implemented here for users of programmable shells
-;;; is to program up the shell w.d. manipulation commands to output
-;;; a coded command sequence to the tty. Something like
-;;; ESC | <cwd> |
-;;; where <cwd> is the new current working directory. Then trash the
-;;; directory tracking machinery currently used in this package, and
-;;; replace it with a process filter that watches for and strips out
-;;; these messages.
+;;
+;; This code provides the shell mode input sentinel
+;; SHELL-DIRECTORY-TRACKER
+;; that tracks cd, pushd, and popd commands issued to the shell, and
+;; changes the current directory of the shell buffer accordingly.
+;;
+;; This is basically a fragile hack, although it's more accurate than
+;; the version in Emacs 18's shell.el. It has the following failings:
+;; 1. It doesn't know about the cdpath shell variable.
+;; 2. It cannot infallibly deal with command sequences, though it does well
+;; with these and with ignoring commands forked in another shell with ()s.
+;; 3. More generally, any complex command is going to throw it. Otherwise,
+;; you'd have to build an entire shell interpreter in Emacs Lisp. Failing
+;; that, there's no way to catch shell commands where cd's are buried
+;; inside conditional expressions, aliases, and so forth.
+;;
+;; The whole approach is a crock. Shell aliases mess it up. File sourcing
+;; messes it up. You run other processes under the shell; these each have
+;; separate working directories, and some have commands for manipulating
+;; their w.d.'s (e.g., the lcd command in ftp). Some of these programs have
+;; commands that do *not* affect the current w.d. at all, but look like they
+;; do (e.g., the cd command in ftp). In shells that allow you job
+;; control, you can switch between jobs, all having different w.d.'s. So
+;; simply saying %3 can shift your w.d..
+;;
+;; The solution is to relax, not stress out about it, and settle for
+;; a hack that works pretty well in typical circumstances. Remember
+;; that a half-assed solution is more in keeping with the spirit of Unix,
+;; anyway. Blech.
+;;
+;; One good hack not implemented here for users of programmable shells
+;; is to program up the shell w.d. manipulation commands to output
+;; a coded command sequence to the tty. Something like
+;; ESC | <cwd> |
+;; where <cwd> is the new current working directory. Then trash the
+;; directory tracking machinery currently used in this package, and
+;; replace it with a process filter that watches for and strips out
+;; these messages.
(defun shell-directory-tracker (str)
"Tracks cd, pushd and popd commands issued to the shell.
＠＠ -884,27 +884,26 ＠＠ Environment variables are expanded, see
(defun shell-extract-num (str)
(and (string-match "^\\+[1-9][0-9]*$" str)
(string-to-number str)))
-
-(defun shell-dirtrack-mode ()
+(defvaralias 'shell-dirtrack-mode 'shell-dirtrackp)
+(define-minor-mode shell-dirtrack-mode
"Turn directory tracking on and off in a shell buffer."
- (interactive)
- (if (setq shell-dirtrackp (not shell-dirtrackp))
- (setq list-buffers-directory default-directory)
- (setq list-buffers-directory nil))
- (message "Directory tracking %s" (if shell-dirtrackp "ON" "OFF")))
+ nil nil nil
+ (setq list-buffers-directory (if shell-dirtrack-mode default-directory))
+ (if shell-dirtrack-mode
+ (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t)
+ (remove-hook 'comint-input-filter-functions 'shell-directory-tracker t)))
-;;; For your typing convenience:
-(defalias 'shell-dirtrack-toggle 'shell-dirtrack-mode)
+;; For your typing convenience:
+(defalias 'shell-dirtrack-toggle 'shell-dirtrack-mode) ;??Convenience??
(defalias 'dirtrack-toggle 'shell-dirtrack-mode)
(defalias 'dirtrack-mode 'shell-dirtrack-mode)
(defun shell-cd (dir)
"Do normal `cd' to DIR, and set `list-buffers-directory'."
+ (cd dir)
(if shell-dirtrackp
- (setq list-buffers-directory (file-name-as-directory
- (expand-file-name dir))))
- (cd dir))
+ (setq list-buffers-directory default-directory)))
(defun shell-resync-dirs ()
"Resync the buffer's idea of the current directory stack.
＠＠ -959,18 +958,18 ＠＠ command again."
(let ((ds (nreverse ds)))
(shell-cd-1 (car ds) (cdr ds))))))
-;;; For your typing convenience:
+;; For your typing convenience:
(defalias 'dirs 'shell-resync-dirs)
;; XEmacs addition
(defvar shell-dirstack-message-hook nil
"Hook to run after a cd, pushd or popd event")
-;;; Show the current dirstack on the message line.
-;;; Pretty up dirs a bit by changing "/usr/jqr/foo" to "~/foo".
-;;; (This isn't necessary if the dirlisting is generated with a simple "dirs".)
-;;; All the commands that mung the buffer's dirstack finish by calling
-;;; this guy.
+;; Show the current dirstack on the message line.
+;; Pretty up dirs a bit by changing "/usr/jqr/foo" to "~/foo".
+;; (This isn't necessary if the dirlisting is generated with a simple "dirs".)
+;; All the commands that mung the buffer's dirstack finish by calling
+;; this guy.
(defun shell-dirstack-message ()
(when shell-dirtrack-verbose
(let* ((msg "")
- 1 participants
- 0 comments
CVS update by james xemacs/lisp ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: james
Date: 06/05/29 23:25:50
Modified: xemacs/lisp ChangeLog autoload.el
Log:
Only write one autoload file per package. <m3y7wrji2b.fsf(a)jerrypc.cs.usu.edu>
Revision Changes Path
1.746 +5 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.745
retrieving revision 1.746
diff -u -p -r1.745 -r1.746
--- ChangeLog 2006/05/23 12:56:19 1.745
+++ ChangeLog 2006/05/29 21:25:48 1.746
＠＠ -1,3 +1,8 ＠＠
+2006-05-24 Jerry James <james(a)xemacs.org>
+
+ * autoload.el (batch-update-autoloads): Only write to
+ generated-autoload-file.
+
2006-05-23 Stephen J. Turnbull <stephen(a)xemacs.org>
* code-cmds.el: Update FSF copyright; improve header comment.
1.23 +2 -1 XEmacs/xemacs/lisp/autoload.el
Index: autoload.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/autoload.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -p -r1.22 -r1.23
--- autoload.el 2005/02/04 03:57:34 1.22
+++ autoload.el 2006/05/29 21:25:49 1.23
＠＠ -1154,7 +1154,8 ＠＠ The directory to which the auto-autoload
on the command line."
(unless noninteractive
(error "batch-update-autoloads is to be used only with -batch"))
- (update-autoload-files command-line-args-left autoload-feature-prefix nil t)
+ (update-autoload-files command-line-args-left autoload-feature-prefix
+ generated-autoload-file t)
(kill-emacs 0))
;; Declare obsolescence
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 06/05/28 23:50:47
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1545 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1544
retrieving revision 1.1545
diff -u -p -r1.1544 -r1.1545
--- version.sh 2006/05/27 21:51:25 1.1544
+++ version.sh 2006/05/28 21:50:46 1.1545
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20060527)"
+xemacs_extra_name="(+CVS-20060528)"
xemacs_release_date="2006-05-16"
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 06/05/27 23:51:26
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1544 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1543
retrieving revision 1.1544
diff -u -p -r1.1543 -r1.1544
--- version.sh 2006/05/26 21:50:53 1.1543
+++ version.sh 2006/05/27 21:51:25 1.1544
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20060526)"
+xemacs_extra_name="(+CVS-20060527)"
xemacs_release_date="2006-05-16"
- 1 participants
- 0 comments
CVS update by stephent xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: stephent
Date: 06/05/27 20:30:56
Modified: xemacs configure
Log:
Forget to commit a couple days ago, thanks for reminder, Malcolm!
Revision Changes Path
1.281 +16 -15 XEmacs/xemacs/configure
Index: configure
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v
retrieving revision 1.280
retrieving revision 1.281
diff -u -p -r1.280 -r1.281
--- configure 2006/05/16 08:22:35 1.280
+++ configure 2006/05/27 18:30:48 1.281
＠＠ -11,9 +11,7 ＠＠
# Configuration script for XEmacs. Largely divergent from FSF.
# Guess values for system-dependent variables and create Makefiles.
#
-# Copyright (C) 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
-# Copyright (C) 1997, 1998, 1999, 2001, 2002 Free Software Foundation, Inc.
-# Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
+# Copyright (C) 1992-1999, 2001-2006 Free Software Foundation, Inc.
# Copyright (C) 1993, 1994, 1995 Board of Trustees, University of Illinois.
# Copyright (C) 1996, 1997 Sun Microsystems, Inc.
# Copyright (C) 1995, 1996, 2002, 2003, 2004 Ben Wing.
＠＠ -1356,9 +1354,7 ＠＠ gives unlimited permission to copy, dist
Configuration script for XEmacs. Largely divergent from FSF.
Guess values for system-dependent variables and create Makefiles.
-Copyright (C) 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
-Copyright (C) 1997, 1998, 1999, 2001, 2002 Free Software Foundation, Inc.
-Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
+Copyright (C) 1992-1999, 2001-2006 Free Software Foundation, Inc.
Copyright (C) 1993, 1994, 1995 Board of Trustees, University of Illinois.
Copyright (C) 1996, 1997 Sun Microsystems, Inc.
Copyright (C) 1995, 1996, 2002, 2003, 2004 Ben Wing.
＠＠ -38995,14 +38991,14 ＠＠ if test "$verbose" = "yes"; then
fi
-if test -f "$srcdir/src/.gdbinit.in" -a ! -f "src/.gdbinit.in"; then
+if test -f "$srcdir/etc/gdbinit.in"; then
test "$verbose" = "yes" && echo "creating src/.gdbinit.in"
- echo "source $srcdir/src/.gdbinit.in" > "src/.gdbinit.in"
+ cp $srcdir/etc/gdbinit.in src/.gdbinit.in
fi
-if test -f "$srcdir/src/.dbxrc.in" -a ! -f "src/.dbxrc.in"; then
+if test -f "$srcdir/etc/dbxrc.in"; then
test "$verbose" = "yes" && echo "creating src/.dbxrc.in"
- echo ". $srcdir/src/.dbxrc.in" > "src/.dbxrc.in"
+ echo ". $srcdir/etc/dbxrc.in" > "src/.dbxrc.in"
fi
if test -f "$srcdir/TAGS" -a ! -f "TAGS"; then
＠＠ -41088,7 +41084,8 ＠＠ $CPP -I. -I${srcdir}/src junk.c \
s/\\\([\"]\)/\1/g
s/^[ TAB]*\"//
s/\"[ TAB]*$//
-}' > Makefile.new
+}' \
+ -e 's/^XCOMM /\# /' > Makefile.new
chmod 444 Makefile.new
mv -f Makefile.new Makefile
＠＠ -41102,7 +41099,8 ＠＠ $CPP -I. -I${srcdir}/src -DUSE_GNU_MAKE
s/\\\([\"]\)/\1/g
s/^[ TAB]*\"//
s/\"[ TAB]*$//
-}' > Makefile.new
+}' \
+ -e 's/^XCOMM /\# /' > Makefile.new
chmod 444 Makefile.new
mv -f Makefile.new GNUmakefile
＠＠ -41133,7 +41131,8 ＠＠ $CPP -I. -I${srcdir}/src junk.c \
s/\\\([\"]\)/\1/g
s/^[ TAB]*\"//
s/\"[ TAB]*$//
-}' > Makefile.new
+}' \
+ -e 's/^XCOMM /\# /' > Makefile.new
chmod 444 Makefile.new
mv -f Makefile.new .gdbinit
＠＠ -41165,7 +41164,8 ＠＠ $CPP -I. -I${srcdir}/src junk.c \
s/\\\([\"]\)/\1/g
s/^[ TAB]*\"//
s/\"[ TAB]*$//
-}' > Makefile.new
+}' \
+ -e 's/^XCOMM /\# /' > Makefile.new
chmod 444 Makefile.new
mv -f Makefile.new .dbxrc
＠＠ -41183,7 +41183,8 ＠＠ $CPP -I. -I${srcdir}/src junk.c \
s/\\\([\"]\)/\1/g
s/^[ TAB]*\"//
s/\"[ TAB]*$//
-}' > Makefile.new
+}' \
+ -e 's/^XCOMM /\# /' > Makefile.new
chmod 444 Makefile.new
mv -f Makefile.new xemacs.def
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 06/05/26 23:50:53
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1543 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1542
retrieving revision 1.1543
diff -u -p -r1.1542 -r1.1543
--- version.sh 2006/05/25 21:51:04 1.1542
+++ version.sh 2006/05/26 21:50:53 1.1543
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20060525)"
+xemacs_extra_name="(+CVS-20060526)"
xemacs_release_date="2006-05-16"
- 1 participants
- 0 comments