Commit c12ecb0a authored by Miles Bader's avatar Miles Bader
Browse files

Merge from emacs--rel--22

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-923
parents e83d1fe8 9d2185d1
......@@ -41,6 +41,18 @@ to the hack introduced on 2005-07-01 to fix some other Cleartype problem.
** raman@users.sf.net, sep 7: Emacs 23.0.50: Segfaults in alloc.c (batch process)
http://lists.gnu.org/archive/html/emacs-devel/2007-09/msg00690.html
** undefined reference getopt_long
Report by Daniel C. Bastos <dbast0s@yahoo.com.br> on bug-gnu-emacs
from 2007-08-27. Impossible to procede without more input from OP (as
of 20070912, emails are bouncing) or someone else who can reproduce this.
http://lists.gnu.org/archive/html/emacs-devel/2007-08/msg01497.html
** emacs-22.1 with GTK problems (with patches)
Only outstanding issue seems to be whether Solaris 2.6 GTK can be
supported in the absence of recursive mutexes, via a change to
alloc.c, or whether configure should abort.
http://lists.gnu.org/archive/html/bug-gnu-emacs/2007-09/msg00055.html
* BUGS
** Document the changes introduced by multi-tty
......
2007-11-09 Reiner Steib <Reiner.Steib@gmx.de>
* gnus.texi, gnus-faq.texi, message.texi: Bump version to 5.10.9.
2007-11-09 Nick Roberts <nickrob@snap.net.nz>
* building.texi (Watch Expressions): Remove obscure sentence.
2007-11-06 Kenichi Handa <handa@ni.aist.go.jp>
* mule.texi (Select Input Method): Describe how to activate an input
......@@ -15,11 +23,20 @@
* gnus.texi (Troubleshooting): Adjust Gnus version number.
2007-10-30 Nick Roberts <nickrob@snap.net.nz>
* building.texi (Watch Expressions): Describe gdb-delete-out-of-scope.
2007-10-30 Glenn Morris <rgm@gnu.org>
* misc.texi (Directory Tracking): Explain a bit more about
dirtrack-mode.
2007-10-29 Richard Stallman <rms@gnu.org>
* widget.texi (Introduction): Delete discussion of implementation
internals.
2007-10-25 Glenn Morris <rgm@gnu.org>
* fortran-xtra.texi (Fortran): F90 mode handles F2003.
......
......@@ -1121,6 +1121,13 @@ changed and @code{shadow} face to make variables which have gone out of
scope less noticeable. When a variable goes out of scope you can't
edit its value.
@vindex gdb-delete-out-of-scope
If the variable @code{gdb-delete-out-of-scope} is non-@code{nil}
(the default value), Emacs automatically deletes watch expressions
which go out of scope. Sometimes, when re-entering the same function,
it may be useful to set this value to nil so that you don't need to
recreate the watch expression.
@vindex gdb-use-colon-colon-notation
If the variable @code{gdb-use-colon-colon-notation} is
non-@code{nil}, Emacs uses the @samp{@var{function}::@var{variable}}
......
......@@ -142,19 +142,6 @@ extended to use the GUI features. This means that your code using the
widget library will also use the new graphic features automatically.
@end enumerate
In order to minimize the code that is loaded by users who do not
create any widgets, the code has been split in two files:
@cindex widget library, files
@table @file
@item widget.el
This will declare the user variables, define the function
@code{define-widget}, and autoload the function @code{widget-create}.
@item wid-edit.el
Everything else is here, there is no reason to load it explicitly, as
it will be autoloaded when needed.
@end table
@node User Interface, Programming Example, Introduction, Top
@comment node-name, next, previous, up
@section User Interface
......
......@@ -42,15 +42,6 @@ below. Emacs tries to warn you about these through `bad-packages-alist'.
* Changes in Emacs 22.2
** `browse-url-emacs' loads a URL into an Emacs buffer. Handy for *.el URLs.
** `bad-packages-alist' will warn about external packages that are known
to cause problems in this version of Emacs.
** The values of `dired-recursive-deletes' and `dired-recursive-copies'
have been changed to `top'. This means that the user is asked once,
before deleting/copying the indicated directory recursively.
** In Image mode, whenever the displayed image is wider and/or higher
than the window, the usual keys for moving the cursor cause the image
to be scrolled horizontally or vertically instead.
......@@ -67,6 +58,15 @@ Windows installations. Users of software which modifies the behaviour of
Windows to cause focus to follow the mouse will now need to explicitly set
this variable.
** `bad-packages-alist' will warn about external packages that are known
to cause problems in this version of Emacs.
** The values of `dired-recursive-deletes' and `dired-recursive-copies'
have been changed to `top'. This means that the user is asked once,
before deleting/copying the indicated directory recursively.
** `browse-url-emacs' loads a URL into an Emacs buffer. Handy for *.el URLs.
** The command gdba has been removed as gdb works now for those cases where it
was needed. In text command mode, if you have problems before execution has
started, use M-x gud-gdb.
......@@ -106,7 +106,8 @@ This can be used to add menu entries for backend specific functions.
* Lisp Changes in Emacs 22.2.
** Frame-local variables are deprecated and are slated for removal.
Use frame parameters instead.
Use frame parameters instead.
** The function invisible-p returns non-nil if the character
after a specified position is invisible.
......@@ -121,9 +122,16 @@ as its frame.
** The new function `image-refresh' refreshes all images associated
with a given image specification.
** The new function `split-string-and-unquote' does (what?)
** The new function `combine-and-quote-strings' concatenates a list of strings
using a specified separator. If a string contains double quotes, they
are escaped in the output.
** The new function `split-string-and-unquote' performs the inverse operation to
`combine-and-quote-strings', i.e. splits a single string into a list
of strings, undoing any quoting added by `combine-and-quote-strings'.
(For some separator/string combinations, the original strings cannot
be recovered.)
** The new function `combine-and-quote-strings' does (what?)
* Installation Changes in Emacs 22.1
......
......@@ -255,7 +255,7 @@ install: all
`id -un 2> /dev/null`; do \
[ -n "$${installuser}" ] && break ; \
done ; \
find ${INSTALLDIR} -exec chown $${installuser} '{}' ';'
-find ${INSTALLDIR} -exec chown $${installuser} '{}' ';'
clean mostlyclean:
rm -f ${TIT-MISC} ${TIT-MISC:.elc=.el} \
......
2007-11-09 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gud.el (gud-gdb): Remove vestigial gdba doc and code.
2007-11-09 Sven Joachim <svenjoac@gmx.de>
* dired-aux.el (dired-copy-file-recursive):
Preserve directory permissions.
2007-11-09 Juanma Barranquero <lekktu@gmail.com>
* whitespace.el (whitespace-write-file-hook): Remove interactive spec.
(whitespace-unload-function): New-style unload function. When run,
unintern `whitespace-unload-hook' and call `unload-feature' recursively
to stop the old hook from messing with the unloading.
2007-11-09 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/elp.el (elp-report-limit, elp-restore-all)
(elp-unset-master, elp-results): Fix typos.
(elp-sort-by-function, elp-use-standard-output, elp-recycle-buffers-p):
Doc fixes.
* msb.el (msb--many-menus): Remove variable.
(msb-max-menu-items, msb--add-to-menu): Doc fixes.
(msb-menu-cond, msb-item-handling-function, msb--create-function-info)
(msb--toggle-menu-type): Fix typos in docstrings.
* shadowfile.el (shadow-inhibit-overload, shadow-remove-from-todo)
(shadow-insert-var): Doc fixes.
(shadow-file-match, shadow-define-cluster, shadow-define-regexp-group):
Reflow docstrings.
(shadow-parse-fullname, shadow-read-files): Fix typos in docstrings.
2007-11-09 Juanma Barranquero <lekktu@gmail.com>
* ediff-hook.el (ediff, ediff-files, ediff-buffers, ebuffers, ediff3)
(ediff-files3, ediff-buffers3, ebuffers3, erevision, ediff-revision):
Fix typos in autoload docstrings.
2007-11-09 Richard Stallman <rms@gnu.org>
* savehist.el (savehist-save): Obey savehist-ignored-variables.
2007-11-09 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-delete-out-of-scope): New option.
(gdb-var-update-handler-1): Use it.
2007-11-09 Juanma Barranquero <lekktu@gmail.com>
* loadhist.el (unload-feature): Remove erroneous check for the
FEATURE-unload-function variable; check the existence of the
function (that's what the docstring says, and it makes more sense).
* follow.el (follow-unload-function): Add docstring.
(follow-unload-function): Remove variable.
* server.el (server-unload-function): Remove variable.
(server-unload-function): Unbind `server-edit' from `C-x #'.
* uniquify.el (uniquify-unload-function): Add docstring.
(uniquify-unload-function): Remove variable.
* ses.el (ses-unload-function): New function.
2007-11-09 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/unsafep.el (unsafep, unsafep-function)
(unsafep-progn, unsafep-let): Fix typos in docstrings.
* uniquify.el (uniquify-maybe-rerationalize-w/o-cb): Define it
before use to avoid a warning in packages that require uniquify.
(uniquify-unload-function): New function and var.
2007-11-09 Dan Nicolaescu <dann@ics.uci.edu>
* ediff-init.el (ediff-xemacs-p, ediff-emacs-p): Remove.
......
......@@ -1160,7 +1160,8 @@ Special value `always' suppresses confirmation."
(or (eq recursive 'always)
(yes-or-no-p (format "Recursive copies of %s? " from))))
;; This is a directory.
(let ((files
(let ((mode (file-modes from))
(files
(condition-case err
(directory-files from nil dired-re-no-dot)
(file-error
......@@ -1174,7 +1175,9 @@ Special value `always' suppresses confirmation."
(if (file-exists-p to)
(or top (dired-handle-overwrite to))
(condition-case err
(make-directory to)
(progn
(make-directory to)
(set-file-modes to #o700))
(file-error
(push (dired-make-relative from)
dired-create-files-failures)
......@@ -1193,7 +1196,9 @@ Special value `always' suppresses confirmation."
(file-error
(push (dired-make-relative thisfrom)
dired-create-files-failures)
(dired-log "Copying error for %s:\n%s\n" thisfrom err))))))
(dired-log "Copying error for %s:\n%s\n" thisfrom err)))))
(when (file-directory-p to)
(set-file-modes to mode)))
;; Not a directory.
(or top (dired-handle-overwrite to))
(condition-case err
......
......@@ -261,17 +261,17 @@
() ; if dumping, autoloads are set up in loaddefs.el
;; if the user decides to load this file, set up autoloads
;; compare files and buffers
(autoload 'ediff "ediff" "Compare two files" t)
(autoload 'ediff-files "ediff" "Compare two files" t)
(autoload 'ediff-buffers "ediff" "Compare two bufers" t)
(autoload 'ebuffers "ediff" "Compare two bufers" t)
(autoload 'ediff3 "ediff" "Compare three files" t)
(autoload 'ediff-files3 "ediff" "Compare three files" t)
(autoload 'ediff-buffers3 "ediff" "Compare three bufers" t)
(autoload 'ebuffers3 "ediff" "Compare three bufers" t)
(autoload 'erevision "ediff" "Compare versions of a file" t)
(autoload 'ediff-revision "ediff" "Compare versions of a file" t)
(autoload 'ediff "ediff" "Compare two files." t)
(autoload 'ediff-files "ediff" "Compare two files." t)
(autoload 'ediff-buffers "ediff" "Compare two buffers." t)
(autoload 'ebuffers "ediff" "Compare two buffers." t)
(autoload 'ediff3 "ediff" "Compare three files." t)
(autoload 'ediff-files3 "ediff" "Compare three files." t)
(autoload 'ediff-buffers3 "ediff" "Compare three buffers." t)
(autoload 'ebuffers3 "ediff" "Compare three buffers." t)
(autoload 'erevision "ediff" "Compare versions of a file." t)
(autoload 'ediff-revision "ediff" "Compare versions of a file." t)
;; compare regions and windows
(autoload 'ediff-windows-wordwise
......
......@@ -147,16 +147,16 @@ Results are displayed with the `elp-results' command."
:group 'elp)
(defcustom elp-sort-by-function 'elp-sort-by-total-time
"*Non-nil specifies elp results sorting function.
"*Non-nil specifies ELP results sorting function.
These functions are currently available:
elp-sort-by-call-count -- sort by the highest call count
elp-sort-by-total-time -- sort by the highest total time
elp-sort-by-average-time -- sort by the highest average times
You can write you're own sort function. It should adhere to the
interface specified by the PRED argument for the `sort' defun. Each
\"element of LIST\" is really a 4 element vector where element 0 is
You can write your own sort function. It should adhere to the
interface specified by the PREDICATE argument for `sort'.
Each \"element of LIST\" is really a 4 element vector where element 0 is
the call count, element 1 is the total time spent in the function,
element 2 is the average time spent in the function, and element 3 is
the symbol's name string."
......@@ -164,7 +164,7 @@ the symbol's name string."
:group 'elp)
(defcustom elp-report-limit 1
"*Prevents some functions from being displayed in the results buffer.
"*Prevent some functions from being displayed in the results buffer.
If a number, no function that has been called fewer than that number
of times will be displayed in the output buffer. If nil, all
functions will be displayed."
......@@ -173,12 +173,12 @@ functions will be displayed."
:group 'elp)
(defcustom elp-use-standard-output nil
"*Non-nil says to output to `standard-output' instead of a buffer."
"*If non-nil, output to `standard-output' instead of a buffer."
:type 'boolean
:group 'elp)
(defcustom elp-recycle-buffers-p t
"*nil says to not recycle the `elp-results-buffer'.
"*If nil, don't recycle the `elp-results-buffer'.
In other words, a new unique buffer is create every time you run
\\[elp-results]."
:type 'boolean
......@@ -372,7 +372,7 @@ Use optional LIST if provided instead."
(mapcar 'elp-restore-function list)))
(defun elp-restore-all ()
"Restores the original definitions of all functions being profiled."
"Restore the original definitions of all functions being profiled."
(interactive)
(elp-restore-list elp-all-instrumented-list))
......@@ -412,7 +412,7 @@ Use optional LIST if provided instead."
(elp-instrument-function funsym)))
(defun elp-unset-master ()
"Unsets the master function."
"Unset the master function."
(interactive)
;; when there's no master function, recording is turned on by default.
(setq elp-master nil
......@@ -558,7 +558,7 @@ original definition, use \\[elp-restore-function] or \\[elp-restore-all]."
(defun elp-results ()
"Display current profiling results.
If `elp-reset-after-results' is non-nil, then current profiling
information for all instrumented functions are reset after results are
information for all instrumented functions is reset after results are
displayed."
(interactive)
(let ((curbuf (current-buffer))
......
......@@ -116,9 +116,9 @@ in the parse.")
;;;###autoload
(defun unsafep (form &optional unsafep-vars)
"Return nil if evaluating FORM couldn't possibly do any harm;
otherwise result is a reason why FORM is unsafe. UNSAFEP-VARS is a list
of symbols with local bindings."
"Return nil if evaluating FORM couldn't possibly do any harm.
Otherwise result is a reason why FORM is unsafe.
UNSAFEP-VARS is a list of symbols with local bindings."
(catch 'unsafep
(if (or (eq safe-functions t) ;User turned off safety-checking
(atom form)) ;Atoms are never unsafe
......@@ -213,8 +213,8 @@ of symbols with local bindings."
(defun unsafep-function (fun)
"Return nil if FUN is a safe function.
\(either a safe lambda or a symbol that names a safe function). Otherwise
result is a reason code."
\(Either a safe lambda or a symbol that names a safe function).
Otherwise result is a reason code."
(cond
((eq (car-safe fun) 'lambda)
(unsafep fun unsafep-vars))
......@@ -226,8 +226,8 @@ result is a reason code."
`(function ,fun))))
(defun unsafep-progn (list)
"Return nil if all forms in LIST are safe, or the reason
for the first unsafe form."
"Return nil if all forms in LIST are safe.
Else, return the reason for the first unsafe form."
(catch 'unsafep-progn
(let (reason)
(dolist (x list)
......@@ -236,8 +236,9 @@ for the first unsafe form."
(defun unsafep-let (clause)
"Check the safety of a let binding.
CLAUSE is a let-binding, either SYM or (SYM) or (SYM VAL). Checks VAL
and throws a reason to `unsafep' if unsafe. Returns SYM."
CLAUSE is a let-binding, either SYM or (SYM) or (SYM VAL).
Check VAL and throw a reason to `unsafep' if unsafe.
Return SYM."
(let (reason sym)
(if (atom clause)
(setq sym clause)
......
......@@ -2163,6 +2163,7 @@ This prevents `mouse-drag-region' from messing things up."
;;{{{ The end
(defun follow-unload-function ()
"Unload Follow mode library."
(easy-menu-remove-item nil '("Tools") "Follow")
(follow-stop-intercept-process-output)
(dolist (group '((before
......@@ -2189,10 +2190,9 @@ This prevents `mouse-drag-region' from messing things up."
(intern (concat "follow-" (symbol-name fun))))
(ad-update fun))
(error nil))))))
;; continue standard processing
nil)
(defvar follow-unload-function 'follow-unload-function)
;;
;; We're done!
;;
......
2007-11-03 Reiner Steib <Reiner.Steib@gmx.de>
* gnus-sum.el (gnus-summary-highlight): Mark as risky local variable.
2007-11-01 Reiner Steib <Reiner.Steib@gmx.de>
* mm-util.el (mm-charset-eval-alist): Mark as risky local variable.
......@@ -21,6 +25,10 @@
(gnus-article-prev-page): Honor gnus-article-over-scroll when moving
back to the previous page.
2007-10-30 Reiner Steib <Reiner.Steib@gmx.de>
* qp.el (quoted-printable-decode-string): Fix typo in doc string.
2007-10-30 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-ems.el (gnus-x-splash): Work even if there's no scroll bar.
......
......@@ -1080,6 +1080,7 @@ uncached: Non-nil if the article is uncached."
:group 'gnus-summary-visual
:type '(repeat (cons (sexp :tag "Form" nil)
face)))
(put 'gnus-summary-highlight 'risky-local-variable t)
(defcustom gnus-alter-header-function nil
"Function called to allow alteration of article header structures.
......
......@@ -82,7 +82,7 @@ them into characters should be done separately."
(defun quoted-printable-decode-string (string &optional coding-system)
"Decode the quoted-printable encoded STRING and return the result.
If CODING-SYSTEM is non-nil, decode the region with coding-system.
If CODING-SYSTEM is non-nil, decode the string with coding-system.
Use of CODING-SYSTEM is deprecated; this function should deal with
raw bytes, and coding conversion should be done separately."
(mm-with-unibyte-buffer
......
......@@ -191,7 +191,7 @@ something strange, such as redefining an Emacs function."
(unload-func (intern-soft (concat name "-unload-function"))))
;; If FEATURE-unload-function is defined and returns non-nil,
;; don't try to do anything more; otherwise proceed normally.
(unless (and (bound-and-true-p unload-func)
(unless (and (fboundp unload-func)
(funcall unload-func))
;; Try to avoid losing badly when hooks installed in critical
;; places go away. (Some packages install things on
......
......@@ -190,9 +190,6 @@
3099
"Other files (%d)")))
;; msb--many-menus is obsolete
(defvar msb--many-menus msb--very-many-menus)
;;;
;;; Customizable variables
;;;
......@@ -235,12 +232,12 @@ A value of nil means don't display this menu.
MENU-TITLE is really a format. If you add %d in it, the %d is
replaced with the number of items in that menu.
ITEM-HANDLING-FN, is optional. If it is supplied and is a function,
than it is used for displaying the items in that particular buffer
ITEM-HANDLING-FN is optional. If it is supplied and is a function,
then it is used for displaying the items in that particular buffer
menu, otherwise the function pointed out by
`msb-item-handling-function' is used.
ITEM-SORT-FN, is also optional.
ITEM-SORT-FN is also optional.
If it is not supplied, the function pointed out by
`msb-item-sort-function' is used.
If it is nil, then no sort takes place and the buffers are presented
......@@ -282,7 +279,7 @@ that differs by this value or more."
(defcustom msb-max-menu-items 15
"*The maximum number of items in a menu.
If this variable is set to 15 for instance, then the submenu will be
split up in minor parts, 15 items each. nil means no limit."
split up in minor parts, 15 items each. A value of nil means no limit."
:type '(choice integer (const nil))
:set 'msb-custom-set
:group 'msb)
......@@ -336,7 +333,7 @@ names that starts with a space character."
"*The appearance of a buffer menu.
The default function to call for handling the appearance of a menu
item. It should take to arguments, BUFFER and MAX-BUFFER-NAME-LENGTH,
item. It should take two arguments, BUFFER and MAX-BUFFER-NAME-LENGTH,
where the latter is the max length of all buffer names.
The function should return the string to use in the menu.
......@@ -664,7 +661,7 @@ If the argument is left out or nil, then the current buffer is considered."
(defun msb--create-function-info (menu-cond-elt)
"Create a vector from an element MENU-COND-ELT of `msb-menu-cond'.
This takes the form:
\]BUFFER-LIST-VARIABLE CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLER SORTER)
\[BUFFER-LIST-VARIABLE CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLER SORTER]
See `msb-menu-cond' for a description of its elements."
(let* ((list-symbol (make-symbol "-msb-buffer-list"))
(tmp-ih (and (> (length menu-cond-elt) 3)
......@@ -727,7 +724,7 @@ See `msb-menu-cond' for a description of its elements."
(defun msb--add-to-menu (buffer function-info max-buffer-name-length)
"Add BUFFER to the menu depicted by FUNCTION-INFO.
All side-effects. Adds an element of form (BUFFER-TITLE . BUFFER)
to the buffer-list variable in function-info."
to the buffer-list variable in FUNCTION-INFO."
(let ((list-symbol (aref function-info 0))) ;BUFFER-LIST-VARIABLE
;; Here comes the hairy side-effect!
(set list-symbol
......@@ -961,7 +958,7 @@ It takes the form ((TITLE . BUFFER-LIST)...)."
(msb--create-buffer-menu-2))))
(defun msb--toggle-menu-type ()
"Multi purpose function for selecting a buffer with the mouse."
"Multi-purpose function for selecting a buffer with the mouse."
(interactive)
(setq msb-files-by-directory (not msb-files-by-directory))
;; This gets a warning, but it is correct,
......
......@@ -51,6 +51,9 @@
(autoload 'format-spec "format-spec")
(autoload 'format-spec-make "format-spec"))
(eval-when-compile
(require 'rx))
(defgroup tls nil
"Transport Layer Security (TLS) parameters."
:group 'comm)
......
......@@ -947,6 +947,12 @@ Changed values are highlighted with the face `font-lock-warning-face'."
:group 'gud
:version "22.1")
(defcustom gdb-delete-out-of-scope t
"If non-nil delete watch expressions automatically when they go out of scope."
:type 'boolean
:group 'gud
:version "22.2")
(defun gdb-speedbar-expand-node (text token indent)
"Expand the node the user clicked on.
TEXT is the text of the button we clicked on, a + or - item.
......@@ -3515,7 +3521,9 @@ in_scope=\"\\(.*?\\)\".*?}")
(when var
(let ((match (match-string 3)))
(cond ((string-equal match "false")
(setcar (nthcdr 5 var) 'out-of-scope))
(if gdb-delete-out-of-scope
(gdb-var-delete-1 varnum)
(setcar (nthcdr 5 var) 'out-of-scope)))
((string-equal match "true")
(setcar (nthcdr 5 var) 'changed)
(setcar (nthcdr 4 var)
......
......@@ -709,25 +709,14 @@ The option \"--fullname\" must be included in this value."
(defvar gud-filter-pending-text nil
"Non-nil means this is text that has been saved for later in `gud-filter'.")
;; The old gdb command. The new one is in gdb-ui.el.
;; The old gdb command (text command mode). The new one is in gdb-ui.el.
;;;###autoload
(defun gud-gdb (command-line)
"Run gdb on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working
directory and source-file directory for your debugger. By
default this command starts GDB using a graphical interface. See
`gdba' for more information.
To run GDB in text command mode, replace the GDB \"--annotate=3\"
option with \"--fullname\" either in the minibuffer for the
current Emacs session, or the custom variable
`gud-gdb-command-name' for all future sessions. You need to use
text command mode to debug multiple programs within one Emacs
session."
directory and source-file directory for your debugger."
(interactive (list (gud-query-cmdline 'gud-gdb)))
(require 'gdb-ui)
(when (and gud-comint-buffer
(buffer-name gud-comint-buffer)
(get-buffer-process gud-comint-buffer)
......@@ -736,8 +725,8 @@ session."
(error
"Multiple debugging requires restarting in text command mode"))
(gud-common-init command-line nil 'gud-gdba-marker-filter)
(set (make-local-variable 'gud-minor-mode) 'gdba)
(gud-common-init command-line nil 'gud-gdb-marker-filter)
(set (make-local-variable 'gud-minor-mode) 'gdb)
(gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.")
(gud-def gud-tbreak "tbreak %f:%l" "\C-t"
......
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