mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(ftp-mode-abbrev-table): Don't define it.

Browse Source 
(nslookup-mode-abbrev-table): Don't define it.
(smbclient-mode-abbrev-table): Don't define it.
(ftp-mode): Don't use ftp-mode-abbrev-table; don't enable Abbrev mode.
(nslookup-mode, smbclient-mode): Likewise.
(network-connection-service-abbrev-alist): Variable deleted.
(network-connection-mode-setup): Don't set up abbrev table.
This commit is contained in:
Richard M. Stallman 2001-12-24 20:18:36 +00:00
parent 85c7ceaa01
commit 96c01bd4e3
2 changed files with 12 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -7,6 +7,14 @@
2001-12-24 Richard M. Stallman <rms@gnu.org>
* net/net-utils.el (ftp-mode-abbrev-table): Don't define it.
(nslookup-mode-abbrev-table): Don't define it.
(smbclient-mode-abbrev-table): Don't define it.
(ftp-mode): Don't use ftp-mode-abbrev-table; don't enable Abbrev mode.
(nslookup-mode, smbclient-mode): Likewise.
(network-connection-service-abbrev-alist): Variable deleted.
(network-connection-mode-setup): Don't set up abbrev table.
* faces.el (minibuffer-prompt): New face.
(minibuffer-prompt-properties): Add `face' property.

48
lisp/net/net-utils.el
View File

@ -456,24 +456,12 @@ If your system's ping continues until interrupted, you can try setting
(set
(make-local-variable 'font-lock-defaults)
'((nslookup-font-lock-keywords)))
(setq local-abbrev-table nslookup-mode-abbrev-table)
(abbrev-mode t)
(setq comint-prompt-regexp nslookup-prompt-regexp)
(setq comint-input-autoexpand t)
)
(define-key nslookup-mode-map "\t" 'comint-dynamic-complete)
(define-abbrev nslookup-mode-abbrev-table "e" "exit")
(define-abbrev nslookup-mode-abbrev-table "f" "finger")
(define-abbrev nslookup-mode-abbrev-table "h" "help")
(define-abbrev nslookup-mode-abbrev-table "lse" "lserver")
(define-abbrev nslookup-mode-abbrev-table "q" "exit")
(define-abbrev nslookup-mode-abbrev-table "r" "root")
(define-abbrev nslookup-mode-abbrev-table "s" "set")
(define-abbrev nslookup-mode-abbrev-table "se" "server")
(define-abbrev nslookup-mode-abbrev-table "v" "viewer")
;;;###autoload
(defun dig (host)
"Run dig program."
@ -526,15 +514,8 @@ If your system's ping continues until interrupted, you can try setting
(default-value 'comint-output-filter-functions))
(add-hook 'comint-output-filter-functions 'comint-watch-for-password-prompt
nil t))
(setq local-abbrev-table ftp-mode-abbrev-table)
(abbrev-mode t)
)
(define-abbrev ftp-mode-abbrev-table "q" "quit")
(define-abbrev ftp-mode-abbrev-table "g" "get")
(define-abbrev ftp-mode-abbrev-table "p" "prompt")
(define-abbrev ftp-mode-abbrev-table "anon" "anonymous")
;; Occasionally useful
(define-key ftp-mode-map "\t" 'comint-dynamic-complete)
@ -585,12 +566,8 @@ If your system's ping continues until interrupted, you can try setting
(default-value 'comint-output-filter-functions))
(add-hook 'comint-output-filter-functions 'comint-watch-for-password-prompt
nil t))
(setq local-abbrev-table smbclient-mode-abbrev-table)
(abbrev-mode t)
)
(define-abbrev smbclient-mode-abbrev-table "q" "quit")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Network Connections
@ -626,12 +603,6 @@ If your system's ping continues until interrupted, you can try setting
"Alist of services and associated TCP port numbers.
This list is not complete.")
(defvar network-connection-service-abbrev-alist nil
"Alist of (SERVICE . ABBREVTABLE) for various network services.
SERVICE can be either a symbol or a number appearing in
`network-connection-service-alist'. ABBREVTABLE is the abbrev table
to use in buffers that talk to that network service.")
;; Workhorse macro
(defmacro run-network-program (process-name host port
&optional initial-string)
@ -807,21 +778,10 @@ from SEARCH-STRING. With argument, prompt for whois server."
)
(defun network-connection-mode-setup (host service)
(let ((network-abbrev-table
(or
(assoc service network-connection-service-abbrev-alist)
(and (rassoc service network-connection-service-alist)
(assoc
(elt (rassoc service network-connection-service-alist) 0)
network-connection-service-abbrev-alist)))))
(make-local-variable 'network-connection-host)
(setq network-connection-host host)
(make-local-variable 'network-connection-service)
(setq network-connection-service service)
(and network-abbrev-table
(setq local-abbrev-table (cdr network-abbrev-table))
(abbrev-mode t)
)))
(make-local-variable 'network-connection-host)
(setq network-connection-host host)
(make-local-variable 'network-connection-service)
(setq network-connection-service service)))
;;;###autoload
(defun network-connection-to-service (host service)