diff options
| -rw-r--r-- | doc/emacs/custom.texi | 22 | ||||
| -rw-r--r-- | doc/emacs/misc.texi | 8 | ||||
| -rw-r--r-- | doc/emacs/rmail.texi | 4 | ||||
| -rw-r--r-- | doc/lispintro/emacs-lisp-intro.texi | 50 | ||||
| -rw-r--r-- | doc/lispref/hash.texi | 8 | ||||
| -rw-r--r-- | doc/lispref/os.texi | 2 | ||||
| -rw-r--r-- | etc/NEWS.26 | 7 | ||||
| -rw-r--r-- | etc/PROBLEMS | 9 | ||||
| -rw-r--r-- | lisp/emacs-lisp/nadvice.el | 3 | ||||
| -rw-r--r-- | lisp/progmodes/sql.el | 19 |
10 files changed, 87 insertions, 45 deletions
diff --git a/doc/emacs/custom.texi b/doc/emacs/custom.texi index d9844554e0c..dbcc4c1fd1a 100644 --- a/doc/emacs/custom.texi +++ b/doc/emacs/custom.texi | |||
| @@ -1313,16 +1313,13 @@ accomplished with @dfn{directory-local variables}. | |||
| 1313 | 1313 | ||
| 1314 | @cindex @file{.dir-locals.el} file | 1314 | @cindex @file{.dir-locals.el} file |
| 1315 | The usual way to define directory-local variables is to put a file | 1315 | The usual way to define directory-local variables is to put a file |
| 1316 | named @file{.dir-locals.el}@footnote{ On MS-DOS, the name of this file | 1316 | named @file{.dir-locals.el}@footnote{ |
| 1317 | should be @file{_dir-locals.el}, due to limitations of the DOS | 1317 | On MS-DOS, the name of this file should be @file{_dir-locals.el}, due |
| 1318 | filesystems. If the filesystem is limited to 8+3 file names, the name | 1318 | to limitations of the DOS filesystems. If the filesystem is limited |
| 1319 | of the file will be truncated by the OS to @file{_dir-loc.el}. | 1319 | to 8+3 file names, the name of the file will be truncated by the OS to |
| 1320 | }@footnote{ You can also use @file{.dir-locals-2.el}, which | 1320 | @file{_dir-loc.el}. |
| 1321 | is loaded in addition. This is useful when @file{.dir-locals.el} is | 1321 | }in a directory. Whenever Emacs visits any file in that directory or |
| 1322 | under version control in a shared repository and can't be used for | 1322 | any of its subdirectories, it will apply the directory-local variables |
| 1323 | personal customizations. } in a | ||
| 1324 | directory. Whenever Emacs visits any file in that directory or any of | ||
| 1325 | its subdirectories, it will apply the directory-local variables | ||
| 1326 | specified in @file{.dir-locals.el}, as though they had been defined as | 1323 | specified in @file{.dir-locals.el}, as though they had been defined as |
| 1327 | file-local variables for that file (@pxref{File Variables}). Emacs | 1324 | file-local variables for that file (@pxref{File Variables}). Emacs |
| 1328 | searches for @file{.dir-locals.el} starting in the directory of the | 1325 | searches for @file{.dir-locals.el} starting in the directory of the |
| @@ -1331,6 +1328,11 @@ this search is skipped for remote files. If needed, the search can be | |||
| 1331 | extended for remote files by setting the variable | 1328 | extended for remote files by setting the variable |
| 1332 | @code{enable-remote-dir-locals} to @code{t}. | 1329 | @code{enable-remote-dir-locals} to @code{t}. |
| 1333 | 1330 | ||
| 1331 | You can also use @file{.dir-locals-2.el}; if found, Emacs loads it | ||
| 1332 | in addition to @file{.dir-locals.el}. This is useful when | ||
| 1333 | @file{.dir-locals.el} is under version control in a shared repository | ||
| 1334 | and can't be used for personal customizations. | ||
| 1335 | |||
| 1334 | The @file{.dir-locals.el} file should hold a specially-constructed | 1336 | The @file{.dir-locals.el} file should hold a specially-constructed |
| 1335 | list, which maps major mode names (symbols) to alists | 1337 | list, which maps major mode names (symbols) to alists |
| 1336 | (@pxref{Association Lists,,, elisp, The Emacs Lisp Reference Manual}). | 1338 | (@pxref{Association Lists,,, elisp, The Emacs Lisp Reference Manual}). |
diff --git a/doc/emacs/misc.texi b/doc/emacs/misc.texi index dd434e200b2..ac52603ed7a 100644 --- a/doc/emacs/misc.texi +++ b/doc/emacs/misc.texi | |||
| @@ -183,7 +183,7 @@ are not shown in the @kbd{l} or @kbd{L} listings. | |||
| 183 | @kindex DEL @r{(Gnus Group mode)} | 183 | @kindex DEL @r{(Gnus Group mode)} |
| 184 | @item @key{DEL} | 184 | @item @key{DEL} |
| 185 | Move point to the previous group containing unread articles | 185 | Move point to the previous group containing unread articles |
| 186 | (@code{gnus-group-prev-unread-group}.) | 186 | (@code{gnus-group-prev-unread-group}). |
| 187 | 187 | ||
| 188 | @kindex n @r{(Gnus Group mode)} | 188 | @kindex n @r{(Gnus Group mode)} |
| 189 | @findex gnus-group-next-unread-group | 189 | @findex gnus-group-next-unread-group |
| @@ -686,7 +686,7 @@ either in the echo area (if it is short), or in an Emacs buffer named | |||
| 686 | @file{*Shell Command Output*}, displayed in another window (if the | 686 | @file{*Shell Command Output*}, displayed in another window (if the |
| 687 | output is long). The variables @code{resize-mini-windows} and | 687 | output is long). The variables @code{resize-mini-windows} and |
| 688 | @code{max-mini-window-height} (@pxref{Minibuffer Edit}) control when | 688 | @code{max-mini-window-height} (@pxref{Minibuffer Edit}) control when |
| 689 | the output is considered too long for the echo area. | 689 | Emacs should consider the output to be too long for the echo area. |
| 690 | 690 | ||
| 691 | For instance, one way to decompress a file named @file{foo.gz} is to | 691 | For instance, one way to decompress a file named @file{foo.gz} is to |
| 692 | type @kbd{M-! gunzip foo.gz @key{RET}}. That shell command normally | 692 | type @kbd{M-! gunzip foo.gz @key{RET}}. That shell command normally |
| @@ -1512,8 +1512,8 @@ interface is similar to the @code{more} program. | |||
| 1512 | @cindex Rlogin | 1512 | @cindex Rlogin |
| 1513 | 1513 | ||
| 1514 | You can login to a remote computer, using whatever commands you | 1514 | You can login to a remote computer, using whatever commands you |
| 1515 | would from a regular terminal (e.g., using the @code{ssh} or | 1515 | would from a regular terminal (e.g., using the @command{ssh} or |
| 1516 | @code{telnet} or @code{rlogin} commands), from a Term window. | 1516 | @command{telnet} or @code{rlogin} commands), from a Term window. |
| 1517 | 1517 | ||
| 1518 | A program that asks you for a password will normally suppress | 1518 | A program that asks you for a password will normally suppress |
| 1519 | echoing of the password, so the password will not show up in the | 1519 | echoing of the password, so the password will not show up in the |
diff --git a/doc/emacs/rmail.texi b/doc/emacs/rmail.texi index 13665358372..068111cab1e 100644 --- a/doc/emacs/rmail.texi +++ b/doc/emacs/rmail.texi | |||
| @@ -999,8 +999,8 @@ summary buffer using @key{SPC} and @key{DEL}. However, in the summary | |||
| 999 | buffer scrolling past the end or the beginning of a message with | 999 | buffer scrolling past the end or the beginning of a message with |
| 1000 | @key{SPC} or @key{DEL} goes, respectively, to the next or previous | 1000 | @key{SPC} or @key{DEL} goes, respectively, to the next or previous |
| 1001 | undeleted message. Customize the | 1001 | undeleted message. Customize the |
| 1002 | @code{rmail-summary-scroll-between-messages} option to nil to disable | 1002 | @code{rmail-summary-scroll-between-messages} option to @code{nil} to |
| 1003 | scrolling to next/previous messages. | 1003 | disable scrolling to next/previous messages. |
| 1004 | 1004 | ||
| 1005 | @findex rmail-summary-undelete-many | 1005 | @findex rmail-summary-undelete-many |
| 1006 | @kbd{M-u} (@code{rmail-summary-undelete-many}) undeletes all deleted | 1006 | @kbd{M-u} (@code{rmail-summary-undelete-many}) undeletes all deleted |
diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi index bca8e1fff0a..81f26728e0a 100644 --- a/doc/lispintro/emacs-lisp-intro.texi +++ b/doc/lispintro/emacs-lisp-intro.texi | |||
| @@ -245,6 +245,10 @@ This master menu first lists each chapter and index; then it lists | |||
| 245 | every node in every chapter. | 245 | every node in every chapter. |
| 246 | @end ifnottex | 246 | @end ifnottex |
| 247 | 247 | ||
| 248 | @c Uncomment the 3 lines below, starting with @iftex, if you want the | ||
| 249 | @c pages of Preface to be numbered in roman numerals. Use -9 instead | ||
| 250 | @c of -11 for smallbook format. | ||
| 251 | |||
| 248 | @c >>>> Set pageno appropriately <<<< | 252 | @c >>>> Set pageno appropriately <<<< |
| 249 | 253 | ||
| 250 | @c The first page of the Preface is a roman numeral; it is the first | 254 | @c The first page of the Preface is a roman numeral; it is the first |
| @@ -822,10 +826,10 @@ programming language, the examples and guided tours will give you an | |||
| 822 | opportunity to get acquainted with Emacs as a Lisp programming | 826 | opportunity to get acquainted with Emacs as a Lisp programming |
| 823 | environment. GNU Emacs supports programming and provides tools that | 827 | environment. GNU Emacs supports programming and provides tools that |
| 824 | you will want to become comfortable using, such as @kbd{M-.} (the key | 828 | you will want to become comfortable using, such as @kbd{M-.} (the key |
| 825 | which invokes the @code{find-tag} command). You will also learn about | 829 | which invokes the @code{xref-find-definitions} command). You will |
| 826 | buffers and other objects that are part of the environment. | 830 | also learn about buffers and other objects that are part of the |
| 827 | Learning about these features of Emacs is like learning new routes | 831 | environment. Learning about these features of Emacs is like learning |
| 828 | around your home town. | 832 | new routes around your home town. |
| 829 | 833 | ||
| 830 | @ignore | 834 | @ignore |
| 831 | In addition, I have written several programs as extended examples. | 835 | In addition, I have written several programs as extended examples. |
| @@ -1012,6 +1016,8 @@ bob@@gnu.org | |||
| 1012 | @c makes a link to something in the first 4 pages though?). | 1016 | @c makes a link to something in the first 4 pages though?). |
| 1013 | @c E.g., note that the Emacs manual has a preface, but does not bother | 1017 | @c E.g., note that the Emacs manual has a preface, but does not bother |
| 1014 | @c resetting the page numbers back to 1 after that. | 1018 | @c resetting the page numbers back to 1 after that. |
| 1019 | @c Alternatively, uncomment the 3 lines above (search for ``pageno'') | ||
| 1020 | @c to have the preface numbered in roman numerals. | ||
| 1015 | @iftex | 1021 | @iftex |
| 1016 | @headings off | 1022 | @headings off |
| 1017 | @evenheading @thispage @| @| @thischapter | 1023 | @evenheading @thispage @| @| @thischapter |
| @@ -5357,7 +5363,7 @@ Here is a brief summary of the various functions discussed in this chapter. | |||
| 5357 | Print the documentation for a function or variable. | 5363 | Print the documentation for a function or variable. |
| 5358 | Conventionally bound to @kbd{C-h f} and @kbd{C-h v}. | 5364 | Conventionally bound to @kbd{C-h f} and @kbd{C-h v}. |
| 5359 | 5365 | ||
| 5360 | @item find-tag | 5366 | @item xref-find-definitions |
| 5361 | Find the file containing the source for a function or variable and | 5367 | Find the file containing the source for a function or variable and |
| 5362 | switch buffers to it, positioning point at the beginning of the item. | 5368 | switch buffers to it, positioning point at the beginning of the item. |
| 5363 | Conventionally bound to @kbd{M-.} (that's a period following the | 5369 | Conventionally bound to @kbd{M-.} (that's a period following the |
| @@ -5411,8 +5417,8 @@ Use @code{if} and @code{get-buffer} to write a function that prints a | |||
| 5411 | message telling you whether a buffer exists. | 5417 | message telling you whether a buffer exists. |
| 5412 | 5418 | ||
| 5413 | @item | 5419 | @item |
| 5414 | Using @code{find-tag}, find the source for the @code{copy-to-buffer} | 5420 | Using @code{xref-find-definitions}, find the source for the |
| 5415 | function. | 5421 | @code{copy-to-buffer} function. |
| 5416 | @end itemize | 5422 | @end itemize |
| 5417 | 5423 | ||
| 5418 | @node More Complex | 5424 | @node More Complex |
| @@ -14754,10 +14760,11 @@ creating one if none already exists." | |||
| 14754 | 14760 | ||
| 14755 | @noindent | 14761 | @noindent |
| 14756 | (The most recent version of the @code{find-file} function definition | 14762 | (The most recent version of the @code{find-file} function definition |
| 14757 | permits you to specify optional wildcards to visit multiple files; that | 14763 | permits you to specify optional wildcards to visit multiple files; |
| 14758 | makes the definition more complex and we will not discuss it here, | 14764 | that makes the definition more complex and we will not discuss it |
| 14759 | since it is not relevant. You can see its source using either | 14765 | here, since it is not relevant. You can see its source using either |
| 14760 | @kbd{M-.} (@code{find-tag}) or @kbd{C-h f} (@code{describe-function}).) | 14766 | @kbd{M-.} (@code{xref-find-definitions}) or @kbd{C-h f} |
| 14767 | (@code{describe-function}).) | ||
| 14761 | 14768 | ||
| 14762 | @ignore | 14769 | @ignore |
| 14763 | In Emacs 22 | 14770 | In Emacs 22 |
| @@ -18544,8 +18551,8 @@ introduction, it comes as a Texinfo source file, so you can read it | |||
| 18544 | on your computer and as a typeset, printed book.) | 18551 | on your computer and as a typeset, printed book.) |
| 18545 | 18552 | ||
| 18546 | Go to the other built-in help that is part of GNU Emacs: the built-in | 18553 | Go to the other built-in help that is part of GNU Emacs: the built-in |
| 18547 | documentation for all functions and variables, and @code{find-tag}, | 18554 | documentation for all functions and variables, and |
| 18548 | the program that takes you to sources. | 18555 | @code{xref-find-definitions}, the program that takes you to sources. |
| 18549 | 18556 | ||
| 18550 | Here is an example of how I explore the sources. Because of its name, | 18557 | Here is an example of how I explore the sources. Because of its name, |
| 18551 | @file{simple.el} is the file I looked at first, a long time ago. As | 18558 | @file{simple.el} is the file I looked at first, a long time ago. As |
| @@ -18581,7 +18588,7 @@ contains the name of the library containing the function's source. | |||
| 18581 | You can put point over the name of the library and press the @key{RET} key, | 18588 | You can put point over the name of the library and press the @key{RET} key, |
| 18582 | which in this situation is bound to @code{help-follow}, and be taken | 18589 | which in this situation is bound to @code{help-follow}, and be taken |
| 18583 | directly to the source, in the same way as @kbd{M-.} | 18590 | directly to the source, in the same way as @kbd{M-.} |
| 18584 | (@code{find-tag}). | 18591 | (@code{xref-find-definitions}). |
| 18585 | 18592 | ||
| 18586 | The definition for @code{describe-function} illustrates how to | 18593 | The definition for @code{describe-function} illustrates how to |
| 18587 | customize the @code{interactive} expression without using the standard | 18594 | customize the @code{interactive} expression without using the standard |
| @@ -18589,13 +18596,14 @@ character codes; and it shows how to create a temporary buffer. | |||
| 18589 | 18596 | ||
| 18590 | (The @code{indent-to} function is written in C rather than Emacs Lisp; | 18597 | (The @code{indent-to} function is written in C rather than Emacs Lisp; |
| 18591 | it is a built-in function. @code{help-follow} takes you to its | 18598 | it is a built-in function. @code{help-follow} takes you to its |
| 18592 | source as does @code{find-tag}, when properly set up.) | 18599 | source as does @code{xref-find-definitions}, when properly set up.) |
| 18593 | 18600 | ||
| 18594 | You can look at a function's source using @code{find-tag}, which is | 18601 | You can look at a function's source using |
| 18595 | bound to @kbd{M-.} Finally, you can find out what the Reference | 18602 | @code{xref-find-definitions}, which is bound to @kbd{M-.} Finally, |
| 18596 | Manual has to say by visiting the manual in Info, and typing @kbd{i} | 18603 | you can find out what the Reference Manual has to say by visiting the |
| 18597 | (@code{Info-index}) and the name of the function, or by looking up the | 18604 | manual in Info, and typing @kbd{i} (@code{Info-index}) and the name of |
| 18598 | function in the index to a printed copy of the manual. | 18605 | the function, or by looking up the function in the index to a printed |
| 18606 | copy of the manual. | ||
| 18599 | 18607 | ||
| 18600 | Similarly, you can find out what is meant by | 18608 | Similarly, you can find out what is meant by |
| 18601 | @code{insert-and-inherit}. | 18609 | @code{insert-and-inherit}. |
diff --git a/doc/lispref/hash.texi b/doc/lispref/hash.texi index ddd46a55edd..f7d33eafa34 100644 --- a/doc/lispref/hash.texi +++ b/doc/lispref/hash.texi | |||
| @@ -293,8 +293,8 @@ This function returns a hash code for Lisp object @var{obj}. Its | |||
| 293 | result reflects identity of @var{obj}, but not its contents. | 293 | result reflects identity of @var{obj}, but not its contents. |
| 294 | 294 | ||
| 295 | If two objects @var{obj1} and @var{obj2} are @code{eq}, then | 295 | If two objects @var{obj1} and @var{obj2} are @code{eq}, then |
| 296 | @code{(xhash @var{obj1})} and @code{(xhash @var{obj2})} are the same | 296 | @code{(sxhash-eq @var{obj1})} and @code{(sxhash-eq @var{obj2})} are |
| 297 | integer. | 297 | the same integer. |
| 298 | @end defun | 298 | @end defun |
| 299 | 299 | ||
| 300 | @defun sxhash-eql obj | 300 | @defun sxhash-eql obj |
| @@ -304,8 +304,8 @@ except for the case where the object is a float number, in which case | |||
| 304 | hash code is generated for the value. | 304 | hash code is generated for the value. |
| 305 | 305 | ||
| 306 | If two objects @var{obj1} and @var{obj2} are @code{eql}, then | 306 | If two objects @var{obj1} and @var{obj2} are @code{eql}, then |
| 307 | @code{(xhash @var{obj1})} and @code{(xhash @var{obj2})} are the same | 307 | @code{(sxhash-eql @var{obj1})} and @code{(sxhash-eql @var{obj2})} are |
| 308 | integer. | 308 | the same integer. |
| 309 | @end defun | 309 | @end defun |
| 310 | 310 | ||
| 311 | This example creates a hash table whose keys are strings that are | 311 | This example creates a hash table whose keys are strings that are |
diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi index 77ecb667f4f..adf554e8436 100644 --- a/doc/lispref/os.texi +++ b/doc/lispref/os.texi | |||
| @@ -2335,7 +2335,7 @@ to be outputting to an erasable screen. The idea is that you specify | |||
| 2335 | Lisp programs to run; when they are finished, Emacs should exit. The | 2335 | Lisp programs to run; when they are finished, Emacs should exit. The |
| 2336 | way to specify the programs to run is with @samp{-l @var{file}}, which | 2336 | way to specify the programs to run is with @samp{-l @var{file}}, which |
| 2337 | loads the library named @var{file}, or @samp{-f @var{function}}, which | 2337 | loads the library named @var{file}, or @samp{-f @var{function}}, which |
| 2338 | calls @var{function} with no arguments, or @samp{--eval @var{form}}. | 2338 | calls @var{function} with no arguments, or @samp{--eval=@var{form}}. |
| 2339 | 2339 | ||
| 2340 | Any Lisp program output that would normally go to the echo area, | 2340 | Any Lisp program output that would normally go to the echo area, |
| 2341 | either using @code{message}, or using @code{prin1}, etc., with | 2341 | either using @code{message}, or using @code{prin1}, etc., with |
diff --git a/etc/NEWS.26 b/etc/NEWS.26 index 4b1f673a7cc..812394f11d8 100644 --- a/etc/NEWS.26 +++ b/etc/NEWS.26 | |||
| @@ -719,6 +719,13 @@ breakpoint (e.g. with "f" and "o") by customizing the new option | |||
| 719 | This allows you to enlarge the maximum recursion depth when | 719 | This allows you to enlarge the maximum recursion depth when |
| 720 | instrumenting code. | 720 | instrumenting code. |
| 721 | 721 | ||
| 722 | *** 'edebug-prin1-to-string' now aliases 'cl-prin1-to-string'. | ||
| 723 | This means edebug output is affected by variables 'cl-print-readably' | ||
| 724 | and 'cl-print-compiled'. To completely restore the previous printing | ||
| 725 | behavior, use | ||
| 726 | |||
| 727 | (fset 'edebug-prin1-to-string #'prin1-to-string) | ||
| 728 | |||
| 722 | ** Eshell | 729 | ** Eshell |
| 723 | 730 | ||
| 724 | *** 'eshell-input-filter's value is now a named function | 731 | *** 'eshell-input-filter's value is now a named function |
diff --git a/etc/PROBLEMS b/etc/PROBLEMS index 8fb3d746102..d42539061be 100644 --- a/etc/PROBLEMS +++ b/etc/PROBLEMS | |||
| @@ -3196,6 +3196,15 @@ them to DOS 8+3 limits. To be useful on NT, the MSDOS port of Emacs | |||
| 3196 | must be unzipped by a DOS utility, so that long file names are | 3196 | must be unzipped by a DOS utility, so that long file names are |
| 3197 | properly truncated. | 3197 | properly truncated. |
| 3198 | 3198 | ||
| 3199 | ** Apple Macintosh operating systems | ||
| 3200 | |||
| 3201 | *** OS X 10.9 and earlier: symlinks autocomplete as directories | ||
| 3202 | |||
| 3203 | Autocompleting the name of a symbolic link incorrectly appends "/". | ||
| 3204 | Building and running Emacs on OS X 10.10 (or later) fixes the problem. | ||
| 3205 | Older operating systems are no longer supported by Apple. | ||
| 3206 | https://bugs.gnu.org/31305 | ||
| 3207 | |||
| 3199 | ** Archaic window managers and toolkits | 3208 | ** Archaic window managers and toolkits |
| 3200 | 3209 | ||
| 3201 | *** Open Look: Under Open Look, the Emacs window disappears when you type M-q. | 3210 | *** Open Look: Under Open Look, the Emacs window disappears when you type M-q. |
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el index 4403e887069..76a9095e4ae 100644 --- a/lisp/emacs-lisp/nadvice.el +++ b/lisp/emacs-lisp/nadvice.el | |||
| @@ -288,6 +288,9 @@ a special meaning: | |||
| 288 | If PLACE is a symbol, its `default-value' will be affected. | 288 | If PLACE is a symbol, its `default-value' will be affected. |
| 289 | Use (local \\='SYMBOL) if you want to apply FUNCTION to SYMBOL buffer-locally. | 289 | Use (local \\='SYMBOL) if you want to apply FUNCTION to SYMBOL buffer-locally. |
| 290 | Use (var VAR) if you want to apply FUNCTION to the (lexical) VAR. | 290 | Use (var VAR) if you want to apply FUNCTION to the (lexical) VAR. |
| 291 | If you are trying to modify an existing named function rather | ||
| 292 | than a function value, you probably want to use `advice-add' | ||
| 293 | instead (see Info node `(elisp) Advising Named Functions'). | ||
| 291 | 294 | ||
| 292 | If one of FUNCTION or OLDFUN is interactive, then the resulting function | 295 | If one of FUNCTION or OLDFUN is interactive, then the resulting function |
| 293 | is also interactive. There are 3 cases: | 296 | is also interactive. There are 3 cases: |
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 64651aff114..0700c228c35 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el | |||
| @@ -4254,9 +4254,22 @@ the call to \\[sql-product-interactive] with | |||
| 4254 | (funcall (sql-get-product-feature product :sqli-comint-func) | 4254 | (funcall (sql-get-product-feature product :sqli-comint-func) |
| 4255 | product | 4255 | product |
| 4256 | (sql-get-product-feature product :sqli-options) | 4256 | (sql-get-product-feature product :sqli-options) |
| 4257 | (if (and new-name (string-prefix-p "SQL" new-name t)) | 4257 | (cond |
| 4258 | new-name | 4258 | ((null new-name) |
| 4259 | (concat "SQL: " new-name)))) | 4259 | "*SQL*") |
| 4260 | ((stringp new-name) | ||
| 4261 | (if (string-prefix-p "*SQL: " new-name t) | ||
| 4262 | new-name | ||
| 4263 | (concat "*SQL: " new-name "*"))) | ||
| 4264 | ((equal new-name '(4)) | ||
| 4265 | (concat | ||
| 4266 | "*SQL: " | ||
| 4267 | (read-string | ||
| 4268 | "Buffer name (\"*SQL: XXX*\"; enter `XXX'): " | ||
| 4269 | sql-alternate-buffer-name) | ||
| 4270 | "*")) | ||
| 4271 | (t | ||
| 4272 | (format "*SQL: %s*" new-name))))) | ||
| 4260 | 4273 | ||
| 4261 | ;; Set SQLi mode. | 4274 | ;; Set SQLi mode. |
| 4262 | (let ((sql-interactive-product product)) | 4275 | (let ((sql-interactive-product product)) |